

CR 1323 


OCTOBER 1972 


ANALYSIS AND DESIGN OF THREE 
DIMENSIONAL SUPERSONIC NOZZLES 


ATL TR 166 - 
NUMERICAL PROGRAM 
NOZZLE-EXHAUST 


VOLUME II 

FOR ANALYSIS OF 

FLOW FIELDS 


By 

P. Kalben 


PREPARED FOR 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 
HAMPTON, VIRGINIA 

; . -'7‘ under • „ ■ 

CONTRACT NO. NAS1-10327 


By 

t c •• * 

ADVANCED -TECHNOLOGY LABORATORIES, INC. 
Merrick and Stewart Avenues 
Westbury, New York 11590 


I* 


ills. . hk . 




•Ssffi ..&* 




51 



.... . - — ■ *. 



^ -*•' •* - — “ - 




: 

4 — *TR- 

166 : - 

•• T \ j*V. «V,. . fV« .,1«. 

<£.' ?'\z- <>: -:± r>v s-* i- r-..1 J* ; 

%'olv* IT ** •-'■•' 


,r^ # 5 . v % vV' ''j £* 

• S' -ii-.-:. «.* rfiV £~ii *»V »-» ^ 

Paqe i 




INDEX 


Page 

•< 

, 1 1 * 


INTRODUCTION 


1 


\ 

\ 






II. 


DESCRIPTION OF INPUT 


10 




A. INITIAL INPUT DATA 


10 


* 


B. COWL' INPUT DATA*' 


17 " 




C. RESTARTING PROGRAM 


20 


III 

. 

DESCRIPTION OF OUTPUT 


22 

'T 



A. OUTPUT FORMAT 

r* 

22 




B. IDENTIFICATION OF VARIABLES 

23 


IV. 


SUBROUTINES AND FUNCTIONS 


27 




A. SUBROUTINES 


27 


-rr~- v - 

... 

B. FUNCTIONS 

- 

* 31 


V. 


MACHINE CONTROL CONSIDERATIONS 

32 

£ 

_ VI. 

*. A 

< 

FLOW .CHART 

• 

r: , 33 


VII 

• 

PROGRAM LISTING 


38 

T * 

-ia 

i, 


-.v - <% 1. T- • T . * * 

*• 

a ’ * A. . 

^grgpyf -■■ ■; » 

wa T* 

£ la 

M 

n pz i 7 1 7 * "/ 

£2 .M JL ' M. M 

£z&r f 4 s£* 

iS6 ifcW .J&L J8&. S*. ~~ -Vi.- i 



•- - ’• f.’. & £'•; *j \ i' vr rv-** L-'^k i- ‘.\ : \C * .. 

TR 166 - Vol . II 

LIST OF FIGURES 

\FIG. la. NUMERICAL GRID-CARTESIAN OR LINE 

SOURCE 

FIG. lb. NUMERICAL GRID-CYLINDRICAL 

- • ... •? • - 

FIG. 2. INTERNAL SIDEWALL GRID 

FIG. 3. EXTERNAL FLOW-REFERENCE PLANE J 

FIG. 4. EXTERNAL FLOW-END MODULE *” . 


0'} £% j^- 

Page i i 


Page 


2 


3 


5 


7 


9 





■acts. . 








«rr ®pr ’??• 

M. .ML. Jfc 


**4 



ABSTRACT 


This manual describes the FORTRAN IV Program developed to 
analyze the flow field associated with scramjet exhaust 
systems. The instructions for preparing input and inter- 
preting output are described. The program analyzes steady 
three dimensional supersonic flow by the reference plane 
characteristic technique. The governing equations and numer 
ical techniques employed are presented in Volume I of this 
report . 



I. 


INTRODUCTION 


TThe FORTRAN IV "program described herein analyzes inviscid 
\three dimensional supersonic flow in scramjet exhaust systems 

by use of a reference plane characteristic procedure. The 

\ 

governing equations and numerical techniques employed are de- 
„.scr_ibed in detail in Volume I of this report. 

The numerical grid employed in Figures (la) and (lb) follows 
streamline projections in each reference plane (R»Z) or (X,Z) 
or ( X , 6 ) . The grid is described by a matrix of points (1,0) 

. where "I" denotes the streamline projection being ’’’traced in a 
reference plane and "J" denotes the reference plane considered. 
The number of streamline points (I) may not vary from reference 
plane to reference plane, and the addition or deletion of 
^streamline points in accordance with step size considerations 
is provided for in subroutine "SPACE".*’ 

For internal flow calculations the program may use either 
Cartesian (X, Y, Z), line source (R, 0, Z) or cylindrical (X, 

0, R) coordi nates depending upon the internal geometry considered. 
For the external flow calculation the Cartesian system or cyl- 
indrical system is used and the switch-over is performed auto- 
matically in subroutine INTER. The marching direction is either 
R or X and the direction normal to the reference plane is either 








&S£ 


.•r-r. 


TR 166 - Vol . II 




’*r 

3. ST--.M 'si.-’-. 


£***’ 


Page 4 


0 or y. Specifying XJ = 0 or 1 with XJ1 = 0 in the input de- 
termines whether a Cartesian or line source system is used. 

5?r. t* - • 

s s-For the cylindrical system XJ1 = 1 and XJ = 0. 

\ 

\ 

ForVthe program described herein, the following stipulations 
apply:.-, 

(1) The internal flow is underexpanded. 


(2) The cowl and sidewalls end on a plane X = 
constant. The sidewall edges at the cowl 
lip plane are assumed to’ - be strai ght lines 
for external central module configuration 
(Figure 2). 

(3) The program is dimensioned such that ten (10) 
reference planes may be used with forty (40) 
streamline points in each reference plane (40, 
10). This, of course, may be changed depending 
on. storage availability and the number of grid 

* . . k-_{ * «■ • * - * J . Si. . 

points needed to complete a problem. 

(4) The flow deflection at the sidewall exit is 


sumed to be zero. 
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(5) For the cylindrical coordinate system only 
central module flows are. possible. 

\ 

In general, doubly curved upper, lower and sidewalls can be 
assumed, the only limitations being those given above. Sub- 
routines TWALL, BWALL and SWALL describe the shape of these 

t T 

walls using parabolas defined in the Input Section. 

Thermodynamic curve fits are contained in functions FT, F6AM 
and RHEQ, for temperature, equilibrium exponent and density. 
..These are mul ti -vari ate fits obtained from data in Reference 
(1) and are described in Volume I. 

The external flow calculation requires specifying the shape 
of an internal stream surface described by a two parameter 
^parabola as„.. i n -TWAL.L . -Subroutine COWL, computes the under- 
expansion interaction between the internal and external flows 
at the cowl edge station. This data, the internal flow data 
and external flow data provide the necessary initial data sur 
-face and boundary conditions to calculate the .'external flow 
interaction (Figure 3). The strength of the underexpansion 
shock is calculated in HSHOCK and the properties on the con- 
tact surface are calculated in CSURF. The crosswise shape of 
, the. di scon t.i nui-ti es. is. calculated in AL SHOCK. 
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FIGURE 3. EXTERNAL FLOW-REFERENCE PLANE 
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For end modules (Figure.,4) WRAP calculates the property variations 
as a function of a, local reference plane ..orientation.^ n the wrap^ 
around region of the flow. ' - "*■ '* ' 


The program computes derivatives for each flow field point on 
the initial value surface in DERIV while derivatives on the new 
** 5 data surface (r + Ar or x + ax) are computed -in DERIVN. ^Integral 

correction factors for mass flow and total energy are computed in 
MOTHER. The flow field properties are corrected in UNOWAT based 
on these correction factors. The user choses the frequency of 
application of these corrections by an iri'put'variabler described In * 

» . V 

' - — ««l 4 . *A -~'JL ,~e*. ii —ii i ^ *»0 j-p.Sii ■ 

Section II, "Description of Input." 

The main program executes the characteristic calculations and 
provides the control necessary to execute boundary calculations, 

I jV — v> a. *1 

“ compute thermodynami c "data etc., and provides for other peripheral 
computations or instructions necessary to complete the overall 
calculation. 
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II. DESCRIPTION OF INPUT 

t' A. Initial Input Data 

Card 


Number 

Format 

Col umns 

Description 

1 

15 

1-5 

final ma rch i ng step 


15 

6-10 

print interval (in number of steps) 

- 

15 

11-15 

restart indicator (0-initial run; 
1-restart ) 


15 

16-20 

indicator for second order accuracy 
in characteristic calculations 
(0-first order; 1-second order) 

• 

15 

21-25 

indicator for second order accuracy 


in crosswise derivatives (O-first 
order; 1-second order) NOTE: if this 


input equals 1, the characteristic 
calculations are also second order 



15 

26-30 

mass flow and energy correction 


” • i 



interval (in number of steps) 



.15 ; 

31-35 

number, of reference planes allowed 




for in dimension statement (now 
1°) 

i s 


15 

36-40 

intermediate punched output may 
obtained at a maximum of three 

be 


15 

41-45 

stations (input station numbers 

de- 


15 

46-50 

sired, if any) 


■ 

E10.Q 

51-60 

e 

stepsize factor (presently 2) 

- ■ 

2 

15 

1-5 

JMAX number of reference planes 

ex- 


eluding sidewall but including planes 
of symmetry - maximum is 9. NOTE: if 
run termination is in an external 


end module configuration, the maxi- 
mum number of initial reference planes 
0MAX = 9-NUMEXP ; where NUMEXP is input 
#5 on -"card #2 . 
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Format 

Col umns 

Descri pti on 

15 

6-10 

internal symmetry indicator (0-one 
plane of symmetry; 1-two planes of 
symmetry ) 

15 

11-15 

external symmetry indicator (0-one 
plane of symmetry. . . ) 

15 

16-20 

external flow indicator (0-end 
module, 1-central module) 

f • 

15 

21-25 

number of rotated reference planes 
for wraparound calculation (max is 


number of data points in z direction 
between vehicle undersurface and 
ZSAV, described on card 3) - ex- 
ternal vehicle undersurface is a 
plane 


15 26-30 sweepback indicator (0-no sweepback; 

1 -sweepback ) . If this equals one, 
the number of initial data points 
in each reference plane and sidewall 
must be the same. 


15 - "31-35 IMAX(l) number of initial data 

points in first reference plane 

(0 = 1 ) 


15 36-40 I MAX ( 2 ) number of initial data 

points in second reference plane 

... ... _ ... (J=2)„ .. ... T - • 

s. . - . -• » *- • »• * • 


IS T * IMAX(JMAX) number of initial data 

points in last reference plane 
(0=JMAX) 


Number of data points on each reference plane are equal (i.e., IMAX(l) = 
IMAX ( 2 ) = ...= IMAX(JMAX)) 
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Card 


Number 

Format 

Col umns 

» 3 

El 0.3 

1-10 


E10.3 

11-20 


E10.3 

21-30 


E10.3 

31-40 

■* • 

E10.3 

41-50 


E10.3 

51-60 

tx 

E10.3 

61-70 

*» •B 'r- 


E10.3 

71-80 

X."!-' . %MT 

‘ I f 

input 6 on card 

ST" 1 ■ V* 

2 *1 s zero 

3a 

E10.3 

1-10 

t fe 

- , . £,10 . 3,. . ™ 

t . 6.- 

• 

V • 

11-20-. 

r. • 

• 

• 


• 

E10.3 

• 

3b 

E10.3 

• — ■ 

1-10 


E10. 3 

11-20 


Descri pti on 

origin of (r,e,z) coordinate sys- 
tem of initial station (ft) 

XJ-(0-Cartesian; 1- cylindrical) 

X J I - (O-Vehi c 1 e I; 1-Vehicle II) 

X coordinate of cowl at end of 
sidewall (ft) 

radial distance to intersection 
of cowl lip with sidewall or last 
reference plane if no sidewall (ft) 

final X coordinate of run (ft) 

ZSAV-Z direction point of JMAX 
internal reference plane which 
defines origin" of 7 sweep around 
coordinate system 

static pressure at vehicle infinity 
conditions (lb f /ft 2 ) 


leave this-card out of deck: 

X coordinate of sweepback plane 
in first reference plane 


X .coord.i na.te o,f. sweepback plane 
i n* second ref erence plane 

1 . 

» 

j 

/ 

X coordinate of sweepback plane in 
last reference plane or sidewall 
if it exists 


initial lift 
initial thrust 
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Card 


Number 

Format 

Columns 

Description 

f 3 b'" 

E10.3 

21-30 

initial pitching moment 


E10.3 

31-40 

z moment axis 


E10.3 

41-50 

x moment axis 

r 4a. 

E10 . 3 

1-10 

angular coordinates ( X J = 1 ) 
r (degrees) or y (XJ=0) coordinate 
(ft) or first reference plane 


E10.3 

11-20 

z coordinate of first data point 
(1=1) on first (J=l) reference 
plane (ft) 

- 

E10.3 

• 

• 

21-30 

• 

— • «•»- - 
, « t 

z coordinate of second data point 
(1=2) on first (J=l) reference 
l~ pl ane Jf t )" 


E10.3 


z coordinate of last data point 
(1=1 MAX ( 1 ) ) on first (J=l) refer- 
ence plane (ft) 

(If there 

are more than -6 data 

points on a .ref erence pi ane continue 

on the next data 

card in Column 

“#1 with" same format) 


4b-4m Same as 4a for each of the reference planes. 


Leave "this 

card out 

of input deck- if s inpu-t 2- on card 2 ■» 

equals 1: 


) 

/ 

/ 

15 

1-5 

number of initial data points on 

- -V T: • r x 

t *■ 

si dewal 1 

E10.0 

-6-15 

z coordinate of first data po*int- 
on sidewall (ft) 
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Card 

Number 

Forma t 

Col umns 

Description 

; 5 

El 0.0 
• 

16-25 

z coordinate of second data point 
on sidewall (ft) 


E10.0 


z coordinate of last data point 
on sidewall (ft) 

6 

15 

1-5 

r~ - * “ ' " 

number of parabolas used to de- 
fine lower wall (max is 3) 

7a 

E10.3 

1-10 

distance R defining starting 
location of first parabola (ft) 
(input equals input 1 on card 3) 

r w* — • t— 'sr'” ^ — t** •» 


E10.3 

11-20 

« 

• 

• 

• 

• 

coordinates for first parabola 
defining lower wall (for T=THETA 
or Y, and X = marching distance) 

Z=A11X 2 T 2 +A12X 2 T+A13XT 2 +A14X 2 + 

A15T 2 +A16XT+A17X+A18T+A19 

»-* «r* - 



inputs All - A17 

ir- - T v T' ■* • - 

*• 

E10.3 

- 74-80- 

A— A — — *4. *- * 

8a 

E10.3 

1-10 

A18 


E10.3 

11-20 

A19 

i. a. i 

- r -*• *■ ■" 


a- *» '* T ' '► ->} i**- » T-* - 

i ? 

V - ■'it*- £f— tt-». ii., vi ... ' 


7b, 8b Give starting locations and coordinates of the second 
7c, 8c and third parabolas defining lower wall (if used). 


9 Same- as cards 6,- 7a-7c and 8a-8c except coordinates for 

10a -10c „ 

lla-llc equation of upper. wall. 



g5r. 


m 


j&h 0Ts- jg% 

i&v.w w,'r«. Sl-J b'K' s* Jk. .r-. i* 


M«- 


>o- 


*y3£ 


S&vA 


TR 166 - Vol . II 


Page 15 


Card 

Number Format Col umns Description 

j 1 

12 - Same format as cards 6, 7a-7c and 8a-8c except coordi- 

13a -13c 

14a-14c nates for equation of sidewall (these cards are only 
necessary if input 2 on card 2 is 0), where parabola 
is T=A31X 2 Z 2 +A32X 2 Z+A33XZ 2 +A34X 2 +A35Z 2 +A36XZ+A37X+ 
A38Z+A39 . 1 ' " 


The following is the input format for properties at data points 
in the flow field. There is a set of 6 properties for each 
reference plane. They are read from 1 to the number of data 

* v'* ?*— v • J " -I-T V' -fr- *t - ft-- - * 

points for that reference plane (IMAX“(J))‘ (inputs 7,8,... on 
card 2). If there are more than 7 data points on a reference 
plane the remaining data points are continued on the next card 
with the same format. 

b *•’ r ‘~ r - r- - r— y *• *■ -- . v t 

15a E10.3 1-10 pressure at first data point in 

first reference plane (lbf/ft 2 ) 

E10.3 11-20 pressure at second data point in 

first reference plane (lbf/ft 2 ) 

- • * V - i 4 — ~ i .. a i -,. £ *. - 


E10.3 


pressure at last data point in 
first reference plane (lbf/ft 2 ) 
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Car<V d 

Number rJ. F o rmat 


Columns 


Descript iori 


16a Same as 15a except .values of PHE* (degrees) 

17a Sarn^ S e^s r l,5a= -except, lvalues of Q* (ft/sec) 


n t 


18a 


Same as 15a except values of SI* (degrees) 


2 2 

19a ,r v . r Same ;il as >: .15a except -value ^, e Qf static, enthal py [ft. /sec ) 

304 i , . j +Same as, 15a except values of $ fuel to air equivalence 
ratio 


— * - equilibrium hydrogen-air 

2 1 S , :«■ a . : >. • 0 r t a t • 1 * v w r 1 1 . 

$ = -1.- methane 

* : e t hyl er? e - v 4 - • .j , ,. v - * 1 . 


/ .i C ; vr -- 't V X C. r: . . ’ ' ; v 7 t ■ "■ A ! 

*PHE is the angle associated with the di recti on cosi ne of the projec- 
tion -o.f the velq.c i ty ive.ctor the ■ reference ^ptane ;and ;,the .matching 

. i r :? c !. . a u a t s i 1 -a • ] v f . < •: - r. 1 . 

direction R or X. 


O ' 


\ a -n '■> 


?. z 103 e x c ept v ~ • c c 1 • y • _• 0 -r 1 - 0 ;\e r>. 1 ; 1 ^ s r c v. 1 0 : . 
ht r ‘i dewa -1 1 -(ft /-«ec); 

Q is the projection of the velocity vector in the reference plane. 


SI is the angle associated vftth the direction cosine of the velocity 

vector* and its projection in the reference plane. 

N ■ -v h a ■' 0 : :i : C 0 " l . r . s 1 r- a c a - •' a 


15b-20b are ;%he same as 15a-20a except ^properties -are in the 
second reference plane ' I-! "* i - : i 
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in 


Card 

Ntimber 


Format Columns Des cri pti on 


15n-20n are the same as 15a-20a except properties are in the 

i i! <'■ \ i.- : 1 j': > ' <' ! - i t i . f; . ’■ i„- •. ■ 1 :/ r . ’ '■ i .= 0 r 6 r L ! (•; J t ■" 0 T„ c ,/ '• i , 

last reference plane 


i • • ir. I ~ 


t .v • ■: 


t; r . - 1 s - ' i i. c r. •* ; * ; nnc e ; •? r f . : •? • 

If input 2 on card 2 equals 1, there are no more input cards 


c ‘ j o k r w ^ * i • 


for initial i nput 

1 •; v '■ 


3 r 


! I- f> i, i. i. 

21 

. : j : 


•• * i n e x c * v ' : ' ■■ s ^ I o •: c ' i ' r. « 

Same as 15a except at sidewall. 


j r n i p 
2 r c ? o j c 


C C' .1 C- ■) C- l . C • i U 0 & ■" 


re??rviK Same tJ as, 19a exeepf 4 ti sidewal 1 *■ 

p‘. a ; a-, o ■ v iT; i a i ’ . [.• ’ r..< ..?.!• ' v?- ■■■ ' 

23 Same as 20a except at sidewall. 

S h t; (. . r i c j x ~ t ' •> = 1 * h i ■ c i • > > 


r . 


; j . 2 4 5 . p 1 .. Samp , as , [15a _e^cept velocity component in Cartesian X 
direction at sidewall (ft/sec). 


L. C. 

25 


1 10 . 3 1-1 0 Z i o ... r. 1 a ;• e f * i * s ! d a l •*. o f • : ■ a 

Same as 15a except vel pci ty.: component^. ,i n Z : di recti on 

at sidewall (ft/sec ,,-p. p : Z p a • a ~ • - 

- » . tii? c.cw.l ) 


B> o . Cowl Input?Qata j ) oc ?. + i r r> ;; 


s o :: o >; .i 0 5'..: 


in f ; rs Vcfe y .? *; : p : a m: ; f • } 


Card 

Number Format Col umns Description 


- 1 d 5;; 


1-5 


- 0 r U n i f 0 Pin X L : • i P c: i f ; • ■ r 5 
.bs t.v/i-on. c ovi « I5..U .=i ui 1 6- -10; 
s h o c k p r c t ?. r. ? i ; u n . 


ir • of external flow points 
][fni pimum' i^f 3,oppwl ? l.ip poi nt, 
limiting external stream surface 
point and one dummy point) 


/ - • : 1 


c number; of : po.ints. i n. : Prapdtl -Meyer 
fan including data downstream of 
shock (recommend 7, maximum 9) 
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Ca,rdi 

Number 


Format 


Col umns Descri pti on 


"The" foil owi ng is the input format for properties at data points 
in the free stream. There is a set of the Z locations and 6 
properties for each reference plane. They are read from 1 to 
the number of data points, in the free stream (input 1, card 1). 
This is done the same as cards ’ 15a-20a_ to 15n-20n in the initial 

f .. V. 

Input Data Section except the Z locations are added. If an end 
module conf i gurati on i-s. Jae.-i ng computed the number of external 
reference planes is the original JMAX (input 1 on card 2) 

^planes plus the number external - pi arves ^i npoit 5- on *card- 2 ) v - 

•»; ■». a. . it.. Ji: > * 

Subtract one if external vehicle undersurface is a wall rather 
than a plane of symmetry. 


2a 


E10.3 


1-10 


/ - r ' ' 
i c “■ Cl 


n • /; r. . 


1 location of first data point 
in first reference plane (ft) 
"(input equals V coordi nate ‘of 
-the^cowl.) - t. 


E10.3 


11-20 Z location of second data point 
. in first reference plane (ft) 


E10.3 


Z location of last data point 
in first reference plane (ft) 


For uniform external flow allow sufficient Z direction space 
^between, cowl 1 i.p. an^l limiting external - stream -surface -poi nt for 
-^shock propagation. ~ “ 



Tr 16 6 - VVi . n 


p Pa^e T9 


Xajrd 

; i: L'-J 


-Number -Fbrrriat Columns -PesG^l^tion 


1 3 a 


r u v- 


Same ‘as :2'a exdebt Vallies of presslire ! (lbv 

v 'i r •: o o >*• • u r -j • e . , e t >i r T> r ■. o r ? s c e f 


, ,4a 

J 

5a 

) c . 

6a 

7a 

8a 


-Same as 2a except values, of PHE (dearees-). . 

Z i vi • ■: 'or-; /ei.-icle un J vs nrfa je , 

Same as 2a except values of Q (ft/sec). 

E ( 3 1 • ' i : ” 3 :l j? ! £ S 1 !• 

Same as 2a except val^es^Vf jSI^Cch 


* . J <* p V”' Ci *'l ‘ 


: 1 , 


c j. - - 


*.ue in' 
rut -L 


:•? 7 1 3; : i .S 

1 - • 


v I 


Same as 2a except valVes l of j H static eVitharlpV 
(f t 2 /sec 2 ) . 


V . J. *. 

c* s i r. o s o t 

CjvJ \ \ ') £ 

c o n ? t r n 


t. U . 3 


v .. /■ 1 


Same as 2a except values of $ fuel to air equivalence 
ratio. , 


2b-8b 

16 


Same as 2a-8a except properties are in the second 
reference pU-ie. ,.^, or 0 , , lSrihoU l ,, 


Of 1 1 n i !: : ?\ g >, r. r : r 


v. " « < 


2n-8n Same as 2a-8a except pVoperffes re i n ; the last re- 
ference plane. 

17 % 18" 3 time -i.v :3*»*r s’ IZr-'OJ and 1 • t . - 1 i - (•' ! i'i .* ... f I r. v- + 

Data $ ~ c r i o n c x e p t c •> i t c i c a i ?. - ■■ •:« r v. q .’a ?. ’ r o f 

If input 3 ! on bard c 2 erf Ini tiaflnput: Sercti on is one, cards 9-14 

!»/•??■< tHfe... as ceres 12. He :2c s .c i-ij-lJc ot Icii d 
Del a S c 1 i . * n t x c r : r r .* r t : -• c- ~ ; q : a ? •• *. o . 

, • . uetriC-l .'io vc ; ‘J . • v. r ~dce [ ~ n - : .y - -cs , 

9 ^nj?e,’,as Za r ' e')dce"pt along vehicle undersurface.' ‘ y 


10 Same as 3a except along vehicle undersurface. 

C. v ; iJ r .“ f _ 

11 Same as 7a except along vehicle undersurface. 

The-' pryg'*t~" r; ■ . i a c'x ■■ d -j'- i no he- .• jr-c?. dn c 

• ( ,1.2 , j; . j 3 Same ; ,as 8.a except .ala.i^g . vehicle ..under surface .. 
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s-^t i ;• . 


Pa'gV 2 0 


21' 


sweepback i *' t w > : s o p t • o r. w a .s u $ n . 

Card 

Number Format Col umns Descri pti on 

w n-' 3 never' a p ... nr h d e <; * ! s »* - c i « oc 1 pri n f d o t p j t ? t t h a t. « f a - 

13 Same as 2a except velocity component in Cartesian 

t i o ?: . s ?X :d,i rgeic tfeio.n aflhfrrtg -yefti cA e ; , m.nd%r su jvf arqe; -t ; 5 ; \ t; f , v< r f , 

dfecx wit?- t-i...- !.vce ; or t/-„t i i m?. / be desi rat 1 n to cr.anoe in- 

14 Same as 2a except velocity component in Cartesian 

pv t vd.- aZ: i(fc%re'qt i-Q'm^a j ons-f n i. i nter* a 1 

•; 1 IV.-. r " 3 fer -*f S V« - - Vi •):•» • J iJ r. “ l . f- r f .* . • ri - ; . f f 1 -.nv i h* « 

15 E10.3 

O 0 S S (■ :.1 ? 1 " p t •; 

eci . . : . . 1 i 

„ 0 ; p ; . 

E10.3 


E10 . 3 


16 15 


17 I 18" Same as cards lOa-lOc and lla-llc of Initial Input 
Data Section except coordinates for equation of 
limiting external stream surface. 


19-21 Same as cards 12, 13a-13c and 14a-14c of Initial Input 
Data Section except coordinates for equations of ex- 
ternal vehicle undersurface (only use these cards if 
external vehicle undersurface is not a wall of sym- 
metry) . 


1-10 ’angles in each refeVence pfane 
c o r : , . ;• . ; (y e qua & rWftS % a>n,t ^ .^s Sjp.ci a t q d. 

with the di rection cosYnes Vf “ 

b . Ci o c i. u the, Cj^W-l l;ip 

and the plane X VquaTs a Vonstant 


11-20 


1-5 number of parabolas for equation 

of limiting external stream sur- 
face (maximum of 3) 


C. Restarting Program 


The program may be restarted using the final punch deck or any 
intermediate punch deck at any point outside of the initial 




1,6,6;- Vol. II; 

it 3 0 - V 0 ! . I ; 


, Pa ;g. e :2.r 


9 1 


sw-eepback if -this optfi on was rU&ed. 

Whenever a 5 punch ,d,e.clc 1 F s, rje.ce 1 v e4,. j> ,,o u .tPjU s t a \ th.a4 --S.ta-, 
tji^QJi. r 1-s^ .also j g-.i v ; e.n.,j t Xli.i t s = de.cjc rejala^as, th_^ c Ini tial Input Data 
deck with the exception that it may be desirable to change in- 
put p var.i.ab.tess Ll #1. [final march i n# ^s.t&pj #£ r ip;r r int; ^^e,ryal 
Cln d .nunjber, .af, steps-) r ] c on. .punched-- ; ca.rd n J4.. t the -qov^V .has ,b^n 
Pf^sed ,a,n ): inpufs ar&.4ompl;ete.d ,.4f, c t_hfi .'CQW-l. ^ais 404 J*een r pass- 
ed t,he. Cp^l Input J)ata .deck r iau ap#£pde4 and. the-4ata v 4eck is 
<3opiftlet^. r , : a s" ) c- ; "= f h ••*. > -ii * „-c i or (vertfcS i an Cyl i r. 
C:;1 '• ;.r, ci I • r, j ; *'f l.he :qv; I scge ary 1 be 


] a -* t pi •?. n e c f s v ■’ t e » ; o •• • i - ■ - v 5 r ! i -?*- ? t- s c = r '\ . 


'.V v r ;•> 1 ■ 


■c n "i r r . :i «• 


the >. 

^ V : '** 7 • “ - v P 

“ -* o '■ a i -i 

o t r i; r. “■ p 1 1 \ n : 

A *• A r ' 1 f -j r 

s.? v: L 

t h c- $ /'• 

b k a n d c o ;• * a c r . s 

■j >• f ace * , 

the '■ rar.o : r ; - Hey 

e a n e. !■ 6 : h e 

free $ 

tream oc fits are 

p r i n <. d . 

i : tz p *' G \ f G •- 

e c o »i r, : n ;; e 







m ar c h i 

nr i> trre C artfts'1 

•: sle' v 

V/* r. • i ■ r c ;• £ 

1 r- 1; sc'rvP-c. a 

- 

>. 

i- • 


Pefore 

v/ i t h t r e a d a • t ; 

’ » 0 T ; L. r j 

a l. . a -ir.TA, : 

S ar, j f 1 ov ; v ? r 

abi es 

1 n t. n e e >. t a ^ -• a 1 w 

ro.u id 

r e c, i o c t ' d i 

~ e ? ;• u .* d * r c 

the "7 

5AV‘ : point. ’ U! 

or oo-rarri p 

i .u s •?. 3 e t e/ . e 

:h; v h-.. ' a p -tr - 

L t d o € d 

shod; i i = n c o n t 

v' r •* ( 

■? s < ; r j ; j r 2 v : ? '» 

.. s ,.i ‘r ; • I. 


W ! 


-.v n r v n n : r. -< s '* •- c ?: ; ? - u • J •>. -i n j > r- o ■ \ . 


i C; c - 


t r ! £ i r. r; u t v 


e d . 


»•»•* s* • ? 

skit . fci 



: rTRi if 6 -; iYo l .1 2 I 
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III . 


.DESCRIjBTIGN • QFtQUTPUT vc- » 


A. , 0 u t p if; t - F q ma t : p T h-,e program prints a narrative 

describing the i npufcc^ta . that. '.tears r,b‘eew rread-.g steps xd',.a-.. 

sine e i i- i t. i a • i n pu t a c r. epte d 

At every "KOUNT" which is a multiple of the print interval 

r ? i 1 j 'i v c y I i n c i i c a : s y s t c n: j 

starting with K0UNT=0 the properties are printed at each grid 

( ~ l r £ e s j c o -j r -i ' r. a t e 

point in the flow field. This includes sidewall output if 

'' r t r- $ i ? S V S t * ~ ) 

applicable. Marching steps are taken in successive radii 

(line source system) ( or in. t^vef<x ^liTecdt'iorr (.Cartesian and Cylindri 

cal systems.) unti 1 the intersection of the cowl edge and the 

r | tv p . ,.i «* • ... 1 grr c t rf ' '■ o ■; r* <• t*s t iv ft t g c- s 

last plane of symmetry or sidewall is reached. At this time 

• ( . ) 1 •; r -j r i " a • s j i 1 e-r. ; r ' c c - 

the properties are interpolated onto the plane X = X£ QWL then 

OT.C* I "I J t 2 • l f - • llidT'.SSi '• •" '■ 

the shock and contact surfaces, the Prandtl -Meyer fan and the 

■j f , f ft r ? n c e ' p : •:> n e 

free stream points are printed. The program then continues 

i 

marching in the Cartesian system wi th*t thedsairiei print* sttieme* as 
before with the addition of AbP* ALPHA, BETA, IS and flow vari- 
ables in the external wraparound region at radii measured from 

7 _r cocrdi nat«? (ft) 

the "ZSAV" point. The program prints a statement when an em- 
bedded shock is encountered . prTbi srstatementincl udes its' 

type (2 - downrunning shock; 7 - uprunning shock) IS, ALP, ALPHA, 

Q - P-. -••••'* v-'-cc i-y veer... 

BETA in each reference plane. The program terminates when either 

! sf c. £■ 1 a r i 5 * t / . ft C } 

the input values of final X coordinate or final "KOUNT" is reach- 


ed . 


FH? 


- ar.nift iii: oc’i'.cr rl 




n n\ ~ •• f 


+ - • n £ n • i i ' . c i! T ^ > ; 

v 1 ... ’■ I I \ w • . \ .1 “ — . 


y 3 ? 

& m. 




A- "9 


,‘V-A 


S?; ■ 
Ltx''* 


htf&S- •«&£ 
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B. Identification of Variables. 


(1) Reference plane output 

KOUNT - number of marching steps taken 

since initial input accepted 

» 

R - radius (cylindrical system) 

T' 

(degrees), or X coordinate 

»*4 . • •. * * . 

(Cartesian system) (ft) 

J - reference plane number 

THETA" - aTiguTar coordinate iff degrees 
(cylindrical system) or Y co- 
ordinate in ft. (Cartesian system) 

, f; ; . h • > • f r -. .* : . 

of reference planes 

I - data point index within a refer- 

ence plane 



Z coordinate (ft) 

O 

pressure (lbf/ftf) 

cl A— i-,. iJi . fL 


projection of velocity vector in 
reference plane (ft/sec) 


PHE - angle associated with the direction 
cosine of Q and the marchi ng* di r»ec- -■ 
tion R or X (degrees) 


e? 3F? JjT’ Y" V ~ ‘ > r 

i£ &a jss . 
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SI J '" n - ang 1 e 'associ ated with the direc- 

/; ! *’' , i •- <■ i ’■ r> : *J j \ p y- ■; p Z Z ' c ‘ " V. * “» 'I ’ t • 

tioncosine of Q^and the velocity 

c o ' t i y u > i. v > n j ;j 1 c o q X or R e c. : j a ] t 

vector (degrees) 

£ o r s -j ~ 

M - Mach number 

A 1. ’’ A - '■ i o f: s o c i ?. ted w j 1; j-; 1; ?,»;• dire:- ■ 

H - st^t.i c. ,entha|,p.y, ,Cf t^Z-sec^ rr ;1 o 

i .ir * r f £■ v- -- r :■ f> ’ a gr.fi r }• .**• g . 

PHI - fuel to a ir "equ i va 1 ence ratio 

j o r t c z n c i $ c c- r o I •• o i v/ 

RHO - density (slugs/ft 3 ) 

£ k i :\ - srg e ?■ s 3 c c ■ ?. t r d ■' c h 0 r , 2 j i r e c - 

GAM - Uept^pip^exponent l0 - V iC . 

■ t i 0 n 0 f d ? c pn t r 'j ; t / a r; d ■: •••• - . n - 

T - temperature ( R) 

1 n r ■* i t t c . • O r. 


(2) ^dewall ni qutput ,( ; e*tra. C v.aic4al? 1 es> ^.p.rjnted) 
X - Ga^t^sfan < X P c pp.rd i nate .of .da|.a ,, 


trt- nr.“ 0. • «• r. e «ihe 


" ’ n i r y o v i 3 t •• 

Cartesian Y coordinate of data 


poi nt 

Co : u-ir 


* 5 t u 0 ‘j : r. c. 


- component of velocity vector in 


: ' n ; •, » -* 1': 

X direction 


component of velocity vector in 
Y direction 


- component of ~vel oc i ty vector • i n 
Z d i rec ti on ’ 
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, p £ dge >2,5 



(3) Discont inul 1 1 e s r c .. * * a ^ 0 - 

ALP - angle of intersection between dis- 
continuity and plane X or R equals 

Co .up; 6 - re. dov’O-u :-n > ..g soon: 

a constant 

v ?. 

ALPHA - angle associated with the direc- 

‘ .. 7 _ r ' - a i-j ij i" j- sj r, H 0 S J". > >• 

tion cosine between the normal to 

V; r: V* i. J 

the reference plane and the tan- 
gent to the discontinuity 

BETA - angle associated with the direc- 
tion cosine between the intersec- 
tion of discontinuity and march- 
ing direction 

IS - matrix whose non-zero elements 

indicate the data points in each 
reference plane where a discon- 
tinuity exists 


Column 1 
Column 2 

Column 3 
Column 4 


first uprunning shock wave 

first downrunning shock 
wave 

first contact discontinuity 
second downrunning shock 


wave 


Tf, ; I6£ t v V.oJ > I-Ij 
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Pane 21 


I V 


j . 


c i : r> r? ii : ' 1 


N 3 0 


uui • .; r ~ 


A . o U 1 0 U - *'* <_ o 


j f i 


1 1 ri 


.Colunyi. 5 - second contact discon- 
ti nui ty 

Column 6 - third downrunning shock 
wave 

Column 7 - second uprunning shock 

f :W a.V B) f' f) 0 s>.’l 


O • ci 3 - 1 * ICP’n , 


cl . ! i e X • ; Uu : s c c. o rdi i f. t e 


c n • o 


07 Cr :\‘ 




■> i n g 1 ft. t.if 1 c i i r, * s i-t - - 

ext • i p o i a t i o r ; o f V v» • ; r o n o r t *. e .• 
f o >' u p 1 v rr , ' r $ n cr As a <r 


v •* v-o o r'f' n 


0 C: V :> & \ 
1 a 


S t P 


irar.:.iri step t r s e; d on characterise’ 

c r i J ; e r i ? 


4. I h DATA 


accepts ini ti «j 1 i np j t uatc a no pro cram re 

v *■ **• 9 ' ~ ‘ 

start -data 


5 . I NO-A f 2 


ace- pts interior inr.e polatrd dr t a in f, ’are 
equa 1 t o X coo" d i ?. r c. o f o y 1 * r; d f r £ < t c- i 


0 . 


C i' ; i T". 

•- d) r. ; 


c n m ') t- 1 <• s p. ; e- *. i ■: s. u t; t 
f t a 1 i curd’ c C .V: 


/ . 


i:DCK 


- 0 it! P 


i S f (J \ T 


r : ri ' £ !; i / 
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IV. 

*- * 


Pi - > i *. I < 

Name 

l f 

^ ’«'■ !. 

INTER 

2, 

TBL 

Id. 

y. S:!v 

3. 

STEP 

V.- 

i niJaYa 

I c . 

F S H 0 C 

5. 

13. 

INDAT2 

i.t ' i ! 

• t r\ u U. 

6. 

CSJU v RF ; 

•j >* r. - ... 

i ‘f 6 . 

7. 

HSHOCK 

" 14b. 

S V Ml'. 


;UB ROUT IN ESi AND- FUNCTIONS 


Sub root i.n e s i n o ^ g r a ;o> "action factors tor 
rr r z r 1 o w c n d t o t i s n £ r g y 

Description 

c i . • p v ’;t. s h c i i. - u r f c i r e r c t r- , c c- n t u c t s u r - 

Interpol a^es i n t.erna .1 f loyt ^.pFo^o^tiies^aqto - .. 

plane X equals X cogr.dinate Orf .cowl: „ cy . 

f . -i *j . . . 

sftig'le ! tabl ^'linear interpolation and 
extrapolation of fl.o,w properties -to be used 

.. : . . u *. •» ; O'. ■ : »' i li < I ' • * •* 

for .derivatives normal, t.o .referejice planes - 

r. •• 1 or., o •. O ! .. IT i ,v I ! 

cfohfptites "^Vrctil’ng Ytep 'basied 1 o'n f, c h a r ac ter is t i c 
cVftferi a 

aS^ct^Y'S' J i nY¥*i a'l l i n p 1 u t "(fa t a' an d program re- 

s ^^ t# nQw ;.r-ve-tics Yostr*?... c y : 

abYepYs’ Yhteri'oV Interpolated data in plane X 
e^uaJ^t.o. X.c Cjjp.o rdJ jia t.e, jo,f cowl and ..free, sire a nr 
data at same X 

V:-a 1 ! 

comp ut e s pro p e r-ti es up s t r e am an d ^ d owns t r e a m r- . 
of ail contact, sur.face.s, rr , 

;. ll 1 C , . -J ! - • -• i • - * ' ' ' • ' 

r p r r c r. . : * ! ■ '■ . i • C '• V . : 

computes properties downstream of all shock 
di sconti nui tips ; i n. marching r d-i recti op-, . jy 

i -j r •: s .■ ’ •' o • :. o : r v. s t : '• "* : v. 1 i i o r y ; • y • 

c. 7 ' c < *! v.r . v 


4ct QlS. - -&•- 
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fra-mfc 

tjescripti on 

t i , 

c ^ k y.E h. 

C Cmo j. i- tee ?*1 ov; .or iperti e« in -.crrers of flow- 

8 . 

MOTHER 

•camputes integral correction factors for 

• /*• 

i. V . 

6 WALL 

mass flow and total energy 

locti'iriii i o.or wall a": e w m^rcninq and 

9. 

COWL 

cbmFjyWs ^sWc-lf ViiVf^dei rsat?re^fgt!hD,vGOon.taiclt sur- 

\ */ 
L . 

' W : i L i . 

face strength' and extent of Prandtl -Meyer ex- 

: •••'• 3 s u j t •. . wall - r n ew n a r ch ing s e p a r. 

pans ion normal to cowl edge for under-expanded 

y U ^ i. J ^ : ** • • C i ) t c 0 r . ; 'i c S V 1 : . ** .• ; a Y' «./ ’ 

internal flow 

10. . 

». 

ALSHOC 

? rincs v-taiement -and p-og-, -tm j j , l6 n -j;r- ' 

computes angles associated with the direction 

o e r Vi c; peas it .-- 1 •; > o /• •- r ? 

cosine of a tangent to each discontinuity in 

1 i t : 


<M tfie 0 6rb's;swiSe t; 3i Pfefctlon-for : each reference 

20. 

•’DISC • 

plane 

c Crrt P :j yropt.-ties o r o ; s. 1 icon t ; r. j i . • a t 

11. 

o 

RHEQ 

* • 

e 6 kftftpVes v % ! qu'i ^ bri 6 m Y density 

12 . 

"rSHOCK 

^compute's IfT'oV-‘^pr l op*e^ , t4ese up'5:treafn of' shoclc at 



1 •‘hew 1 mVr ? <3i 1 { mj r %'4?a‘t«i Wi calculations fc- e r ; c 

13. 

d* „ 

WALL 

p ; A ; t • 

: v? l." _ •; 

module calculation 

computes flow properties associated with side- 

■’ 11 * / ' * “ ? ' ea - : r. c 3 • • >• >• » ; < - .1 

: wal 1 • - . 

23, 

14a. 

i'j S ri K 

swall 

C °ldcates sidewall' at" ridw r marchfng i’tep’ and com- 

C V ,1 t, nu i c \ r r f • V £ ; ** f ! >* » . i H ^ 

putes a 1 recti on cosines 'of 'si derwal 1 for 

24 , 

PNCH' 

5 iCartesi 4 n P ior • 1 i ne., sources system.. 

14b. 

. SWALL1 

pui cn J c :• t s : u: c<j ro rr-~t.~ r 

locates sidewall at new’riiarching Step ahd com- 


putes direction cosines of sidewall for cylin- 
drical system 



Name 


Descri pti on 


- IS > 
16 . 

17 . 

18 . 

19 . 

20 . 

r— vr 

; 2 1 

22 . 

*- *■ 

23 . 

24 . 


CORNER ... computes flow properties in corners of flow 
field 

BWALL locates lower wall at new marching step and 

computes direction cosines of lower wall 

- - •• ” f ' *' ' 

TWALL locates upper wall at new marching step and 

computes direction cosines of upper wall 

ERROR prints error statement and program line num- 

ber nearest iteration error 

^ -«•- V- *- «r T* 

L «. Jc i** * - A . 

ADDSUB add or subtracts reference planes 

WD ISC computes properties across discontinuity at 

external vehicle undersurface 


PLANES- -inserts a pseudo reference' plane in flow to 
facilitate derivative calculations for end 
module calculation 


PSOLV 

WSHK 


is a four point least sj^uares routine 

v <r * ' ** * ' ? J, 

L . • i ■■ *.-■ ’to- «- — 

computes line of intersection between dis 
continuity and vehicle undersurface 


PNCH 


gives intermediate and final printed and 
punched output used to restart the program 



& m a & 8% & m m m m m a a a «% a & a a « a * * c 
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vr: nr? t ? 

&k i&e* ^ 


Name 


25: SPACE 


26. SWEEP 


27. EMBED 


28. WRAP 


29. SOLVE 


30. TBLDUM 


31. ALWRAP 


Page 30 


Description 


adds or s ubtrac ts - cfa ta points'to facilitate 
maximum allowable marching step 


interpolates data points along throat sweep- 
back plane 


locates embedded shocks 


computes derivatives at all data points except 
-discontinuities on two reference planes bound- 


ing 90° wraparound area 

v r ^ - v rr 9 - 

solves the determinant of 3x3 matrix 


single table linear interpolation used for 
derivatives on reference planes bounding wrap 
around area 


* i A- 


computes angles associated with the direction 
cosines of a tangent to each discontinuity in 
crosswise direction for planes bounding wrap- 

!T "’ 1 — ' ~ T * * * * • v - r 

around- regi on’- ~ *■ 


32. L TH M computes lift, thrust and moment 


33. SETN 


sets flow variables and crosswise derivatives 
at the new station equal to these quantities at 
old station prior to the new station being ca leu 
lated 


A 4 






F - 
1* 
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Name Description 


” 34. UNO WAT 


corrects flow field properties based on correc- 
tion factors computed in MOTHER 


35. DERIV computes crosswise derivatives on initial value 

surface (old station) 

' ... * 

36. DERIVN computes crosswise derivatives on new data sur- 

face (new station) 


B. Functions 


Name 


Descri pti on 


1. XLAM 

TP- f. • 

2 : f ' 


computes bi -characteri s ti c directions in each 
reference plane 

T" *r ■ ■ t* •• * - y • — r-~ — •*- . 

computes l;he "terms associated with derivatives 
normal to reference plane used by bi -characteri sti c 
calculation 


3, FGAM- * 


4. FT 


„ 5 , FH 


computes .isentropic exponent and, associated 
thermodynamic data at'^ each point in flow field 

computes temperature at any point in flow field 

computes static enthalpy at any point in flow 
field" ' ~ 



© & & & m a a & a e& a a m m & m a & a a & 


!$%• £5fc & 
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V. MACHINE CONTROL CONSIDERATIONS 

8,1 1 Computer program is written in FORTRAN IV for 

CDC 6600. 


2. Time and core estimates. 

T * ' ' ’* * ' y '■'* ' ” r v: t » v $: • s* 

(a) Field length 

(1) compile - 60,000 octal 

\ 

(2) execution - 177,000 octal 

—.v — -tr— yr t'” y yr y-- p • . 

^ 4..44 -». « k . W , 

(b) CP time variable depending on mesh size and 
number of steps to be run. 



(c) 1/0: less than 100 octal seconds. 

. . i 

Y ' * ' » " v- y- - y r»rr- . ^ — r- -f - ? — y 

I- jl. i. ^.(d)*, Tape ox diisk storage o.e cess ary. 



(1) 

tape 5 

- card input 



(2) 

tape 6 

- printed output 



(3) 

tape 7 

- punched output 


6 J - i.. 7L ■ 

'17' I; 

- tra p e -5 5 ~ 

--used, tempor&r i l?y during run 

Si«* -A**- • 4Ui. . *»-* - ih-tk v. 5- i„_ A 

-v • £f 


to store primary flow pro- 
perties interpolated along 
cowl edge 


-jy y- y - V > ’ - T " V — ^ ~ •• T' -*■ -• * 

( = (e) Printed output: variable depending on print 

■ £a- •*- *^. — -W- -w ■*» £_k a,-. j}„_ * t; 

interval and length of run. 
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VII. 


PROGRAM LISTING 


The following is a listing of the program, 






PROGRAM CHAR3D ( INPUT* OUTPUT* T APp5sINPllT*TApf 6 bO|JTPUT * 

lTAPE7 f TAPE55) ~ - 

COMMON /a/ Xl *THM aX»TH do) *R *Z(40,l0) *P(40*l0) *PHp (40*10> * 

I Q (40,^0) *SI (40* 1_0) *H (40* 10) »PuI (40*10) »RHOf 40* 10) * GAM (40* 10) 
COMMON /BV PN { 40T1 0) • PHlN (40 • 1 n ) * RH0N(40 * 1 0) * HN (40 » 1 0 ) * ZN (40 * 1 0) 
COMMON / C / IMAX (10 ) » jmax*istaRt,kountp»kountp 

COMMON /0/ UW ( 4 0 ) * V W (40), WW (40) * X W (40), yw (40)*THw (40) 
C0MM0N~7E/ “UWNT4”0T*VWNT40 )”, WWN (40) * XWN { 40 ) , yWN ( 40 ) *THuiN (40 ) 
COMMOn/F/ XPW(aO) 

COMMON /H/ ISIM 

C 0 M MON 7 I/~~XU ■ 

COMMON /SCLTm/ ZLIFTc*XThRc« VMomc »ZLIfTS*XThPS* ymoms 
COMMON /J/ ON(40,10) *PHEN(40»ln) »SINN(40*l0 ) *XPLaM( 40,10) * 
lxMLAM ( 4onO) *FP r40)TFM (40) * A (4o* 10) 

COMMON /«/ RN,oELR 

common /L/ ALPHAN(7flO) »ALPHA(7,10 ) »BfTaN(7.10) #bETa(7.10) 

“COMMOm/M/ IS ( 7* 1 Of " 

COMMOn/N/ SI Q (ao * 10 ) *PQ(40»1o) ,pHeQ(4o* 10) * M© (40 * 1 0 ) * OHl Q (40 • 1 0 ) * 

1 00 ( 40 * 1 0 ) »RHOQ(40,10) *GAMQ(40*10) 

C0MM0n^07“ALPT7710)TAL'PN (7*10, ‘ 

COMMON /ALLRl/ AN(40il0) «TN(40«10) *GAMN(40*10) *XPLAMN(40*l0) * 
J^vMLAMn <40* 10) 

COMMON"7AUt.R27~PONIT40T10) * HQN ( 40 * TO ) *oQN '(40*10) *SIQN(a0*10) * 

IPHEQN (40* 10) * PhI ON (40 *10) , RhOQn ( 40 * 1 0 ) *QAMON (40* 1 0) 

COMMON /IVY/ Iv/Y,KC0RR, IaV 

— COMMON~/FN/~FPN(4irnO _ )TFMNT4l)Ti'o) 

COMMON /AV/ AAV * BAV 
COMMOn/P/ KC1,kC2,KS1,kS2 

com mon”/'0/~x cowl - ‘ “ 

COMMON /p/ J*XcN*XC*XXI,JW*InT.ICOWL»PCOWL 
COMMON /S/ Rl*KOUNT*KOUNTS*i r Owi_T 

“COMMOn/U/ER Z 77 ' ■ - — — — - — ■■ 

COMMON /V/ XJ1 

COMMON /w/ ISImEx, IDUMMy, JINT,tOUMMy(40) »THww(2) *JD1* JD2 

COMMON “/Z/dSTOP 

common /TB/ IMAXJ* IS1 * IS2, ISU, ISL2 
COMMON/EX/ KTPiiN(3) 

CO M M 0 KT 7 X F 7~KF f N ' 

COMMON /TQ/ NUmEXP*ZSAV 

COMMON /THR/ PiNF*ZLIFT*XTHR,YMOM, JJI » ZSHlFT* XSHIFT 
COMMON /FWA/ I50 p 

common /SA/ XJ1S 

COMMON /ISW/ JcALC*ISWEEP*XInSo ( 10) »x? 

“C0MM0KT7I S WIT ~f FR~ 

COMMON /PL/ OE TH 
COMMON /S PE/ KOUNTC 
COMMON /WR/ IWPAP 
COMMON /TEM/ T(40,10) 

COMMON /JF/ JFINAL 

'COM MOn~7 STRE AM / X MAST »X ENT * FS X * F S Z " ~~ ' 

COMMOn/PS/ZR ( 4n»?) *PR(40,2) , OR >40,2) *wR(40*p) ,SIR(40t?) #RHOR(40,2) 
l,PHlR f 40*2) *PHFR(40*2) * THR (2) ,THWR(40) 

COMMOn/PSS/GAMpR (401 
DIMENSION HE(lO) 

DATA HE/5H Y *5HTHETA*5H j ,3H s , 1HZ* 1HR, lHy, 3 HThW, 3H Y , 
130 / 



DATA tCOWL/O/ 

y ps C ATJ“T5 

KOUNTr=10000 

ICOWLT s O 

FRZZZsl.E-04 

ISTOPbO 

ZLIFTbO. 

XT HR on • 

YMOMsfW 

iSLlan 

TFS*0 “ ~ ' 

MMbO 
KC1 «n 

K C 2=0 • " " "* 

JDIbIoO 
JD2® 1 o 0 
JINTssi 00 
AAvs] . 

RAVbO. 

r0lFORMAT(7El0.3) ~~ 

INT*0 

CALL TNDATA 

” IFMAv.EO.T) - XV'Y«1 ' 

CALL SETN(O) 

XJISayJl 

XXI*XC 0 WL ' 

JJT®0 

JW»JMAX*1 

IFdSlM.FO.l) jWbJMAX * 

1 CONTINUE 

IF(KOiiNT,EQ,0 ) CALL MOTHER 

TTTK'O ON T7E QTO) ' 

1 WRITE (6*1066) XMAST*XENT,FSX.FSZ 

1066 FORMa T (///10x.*INITIAL MASS FLn w IS*,El3.5//10X»*INTTIAL ENERGY IS 
14tE1375//l'0X**!NITlAL— STREAM THRUST IS */2o*.*X DIRFCTION - «* 
1 f13.5/20X»*Z DIRECTION - **E13.5) 

IF (X) .GE.XFIN) KOUNTFrKOUNT 
j F ( K OuNT7E Q • KOD'NTS ) ~ GO - T 0 7 3 
IF(KO()NT,EQ.KOUNTF) call pnch 

IF (KOtlNT.EQ.KTPUNd) ,OR.kOUNT.f(3.KTPUn(2) .OR.KOUnT.fQ.KTPUn (3) ) 
1CALL PNCH 

IF(KOuNT.GE*KOuNTF) CALL EXIT 

IF ( ( (kOUNT/KOUNTP)«KOUNTP) .Nf.kOUnT) r,0 TO 7002 
TF7ieoWL.EQ.l.AND,ICOWLT,EQ,0) GO TO 3002 
73 CONTINUE 

IF ( X J a EO a 0 • ) GO TO 513 
WRITE (6* 70) K0'INT,X1 

70 FORMAT (lHl*lOx»<»t<OUNT a ** 14, lfix»*P ® **El3.5//) 

GO TO 503 

51 3WRI T F(6y504 - ) KOUNTT^l ~ 

504 fORMatUh 1»10X,*KOUNT a **I4,1«X**X * »*El3.5//) 

503 CONTINUE 

WRITE (6*610) ZSHTfTVXSHIfT,XTHd,ZLIFT,YMOM 
610 FORMAT (10X**Z MOMENT AXIS a **rll.3»5x**X MOMENT AXIS s **Fll,3/ 

1 10X,*THRUST b *.F11,3,SX**LIFT = *»Ell.3,5X 

1*»PITcHING MOMFNT * * * E 1 1 • 3 ) " 



JF (IS (3) ,NE.O,aNO.KOUNT,NE.O,Amd# ISIM.EG.O) WRITE (6.621 ) XTHRC.ZLI 
1 PTC * VmOm'c " "" 

621 PORMAtt* CONTACT * ,*THRU5T a *. Fl 1 . 3, 5X ,*I-IFT * *.Ell,3*5x 
1 »*PITcHING MOMfNT a *»Ell«3) 

TF (IS (1) .NE.O.aNd.KOUNT.NE.O.AMC*ISIM,EQ.O ) WRITE (6*622) XTHRS.ZL 
lIPTS,yMOMS 

622 FORMAT!* SHOCK * »*THRUST * * *Fll *3 * 5X ♦ *LIFT s **Ell.3*5X 

r* *P I Tc'H I NG MOMENT » * * E 1 1 . 3 ) 

WRITE ( 6 f 623 ) 

623 FORMAT*/) 

DO“Tl~J=l“rJMAX ~ 

IF ( J.fiT, JCALC) GO TO 71 
IF(J.0T,JINT ) GO TO 2260 
TF-tXZJTNETOr^ORVXjrYNETO rrGOT n 505 
WRITE (6*506) J,HE(1) # HE(4) *TH(.M ,HE(5) 

506 FORMAT <//10X**J a **I2»2 aX*A 5«A3 »El3.5,/4X*«I*,6x»Al *10X* 

1*P* * 1 (TX _ * *‘Q *7 9xT*PH E *» 8x7 *S I * ,10X7 *M* * 10Xt«H«* 9X » »Ph I * 

1 ,8X,*RH0*,8X,*8AM* t 9x**T*) 

GO To 5in 

505 “I P(XJjTE OTOT) 00”T0 50 7 ' 

WRITE (6,506) J,HE(2) *HE (4) *TH ( j) *HE (6) 

GO To 510 

507 CONTINUE ” 

WRITE (6,506) J,HE(2) .HE (4) #TH < i> .HE (5) 

GO TO 510 

2260 -2 15« 7SAV -T HQ~j ' ‘ 

WRITE (6,506) J,HE(3> .HE (4) .Zl5,HE(7) 

510 CONTINUE 

IMAKJbIMAX'I J) — 

TF(R.gT. (XCOWL- l.E-06 ) .ANO.ICOwlT.EO.I ) IMAX JaIMAXJ*l 
00 710 Ial.lMAXJ 
E MoO ( ITJ ) /COS ( si ( t * J) ) /A ( I , J ) 

Z15®Z(I.J) 

WRiTe ( 6.79) J *Zl5 »P(I*J) .O(f.j) * p HF<I.J) ,SI (I.J) ,EM.H(I.J) . 
l p MI (I, Jy7RH0(i73, ,GAM(I,J) ,T ( I f J) 

79 format ( I 5.IIE11 ,3) 

710 CONTINUE 

71” CONTINUE — 

IF(ISiM.eQ.I) GO to 211 
J«JW 

tftutgtt^caitci GO~TO — 2TT ” 

IP(J.lT.JINT.OR.ICOWLT.EQ.O) Gn To 2270 
WRITE ( 6, 2300 ) JW,HE(10) .HE(7) 

2300 FORMAT (777 40 X . *SlOE WALL*/ 10X.*J »*. 12/11 X**X*»9X,A3 

1 . 9X **U*,10X.*W*.10X.«V*/ 

14X.*T**6X.A1 , lOX, 

1*P*.10 X .*Q*» 9X,*PHE*7 _ 8X»*SI*, 10X.*M*,10X,4H*, 9X _ ,*PhI* 

1 * 8X » *pHO*. 8X . *GAM**9X ,*T*) 

GO TO 6885 

2270 continue " 

IP(XJ1*E0.1.) GO TO 6884 
WRITE (6,2300) jW,HE(9 )»HE(5) 

GO TO 6885 '' 

6884 WRITE ( 6 , 2300 ) jW,HE(8 )*HE(6) 

6885 CONTINUE 

IMAXJ*lMTXQl “ 



IF (R.gT. (XCOWL-1 .E-06) .AND.ICOwlT.EQ.I ) IMA X JsIMftX J* 1 
no 3oi i sin max j " 

FMsSOrT (UW ( I ) ( I ) ««2*ww ( T ) **2 ) /a < I * J ) 

THWXstHW (I )*XJ 
XW(I)bR*COS(THwX) 

YW ( I ) sR#SIN ( THWX ) ♦ ( 1 . -X J ) *THW ( T ) 

Z 1 5**YW ( I ) 

IF'QTqT . JIN T . A ND . ICO WL T. E 0 .1 ) 7l5»ZSA‘v-THW ( j) 

WRITE (6*302) XW(I)*Z15 «UW ( I ) , wW ( I ) ,yW ( I ) 

302 F0RMat(5X*5E11,3) 

zl5 e Z jITj) — ' 

30l WRITE(6,79) 1,715 *P ( I , J) .0 < T . J) »PHf < I * J) ,SI < I • J) »EM.H ( I , J) 
1PHI (I,J) ,RHO ( I , J ) ,6AM ( I , J) * T ( I « J ) 

211 CONTImUE 

no 3on0 m® l , 7 

IF (IS(M,1) ,NE,6) go TO 3001 

3000 CONTINUE ~ "■ 

60 TO 3002 

3001 continue 
WRITER 6TA005) 
f)0 Aoo6 jal*JW 
IF ( J.gT, JCALC) 60 TO 4006 

WRlTtT6T79)^irATP'(M7j)lM*iT7) 

4006 CONTINUE 

4005 FORMAT(//10X,*ALP#/4X,#J«) 

WR ITET6T4T0T) 
nO 3oo3 J«l,Jw 
IF(J.gT, JCALC) GO TO 3003 
WRITE 16 • 79) J , ( ALPHA <M,J) , Ms* , y ) 

3003 CONTINUE 

WRITE (6,4001 ) 

DO - 3 0 q 8 JolUS ~~~~ 

IF(J,rT. JCALC) 60 TO 3008 
WRITE (6 f 79) J, (BETA (M,J),Msi,7) 

3008 CONTINUE “ ” 

WRITE (6,4002) 

DO 3009 JsJ ♦ jw 
I E ( J .gTU CALC rGOT 0 3009 
WRITE (6, 4004) J, ( I S (M, J) ,Msl,7) 

3009 CONTINUE 

4000 FORM A f ( //I OX , •ALPHAS* X , * J* ) 

4001 FORMAt<//10X,*BETA */4X,4J*) 

4002 FORMAT (//10X,*TS */4X, • J* ) 

40 04 FOR Mat(I5 *7 (1 477 XT) 

3002 CONTINUE 

IF ( IC0WL,EQ.1) CALL COWL (MM,IFR ± 0PT) 

IF(IcoWL.NE.I) 60 TO 5023 
IC0WLT*1 

IF(I w rAP,EQ, 1 >GO TO 5622 
I M'AXjsTM AXQ I NT~ ) 

DO 56?1 LsIiIMaXJ 

IF(Z(L»JINT) ,LT.7SAV) GO TO 56?1 
~ - IFTz rir +!TjiNT) .Z(L*JlrslT) ,LT.l7r-06> GO TO 5622 

no 56^3 Jb1»JJnT 
DO 56?4 IbL,IMaXJ 
Z VLTjywZ ( I ♦ 1 , J ) 



P 

( 1 1 J ) =P 

( I 4 1 f J ) 

0 

(It J) =Q 

( 1*1 f J) 

H 

(I, J)sH 

<l4l, J) 

A 

(I , J) =A 

( 1*1 f J) 

SI 

(T * J) «SI " 

(T4lfJ) 

PHI 

(I, JjaPHI 

(l4l, J) 

P HE 

(If JJsPHE 

( 1*1 f J) 

RHO 

(If J)=RH0 

( I 4"1 f J ) 

GAM 

( I f J) ®GAM 

(I4l, J) 

XPLAMd* J)*XPLAM(I*1*J) 

XML AM ( I, j)aXMLAM(I4l,J) 

5624 CONTINUE 


TMAX (j)bIMAX (J) 

-1 


I FTL • lT • I S( 3 * J ) ) I S ( 3 * J ) si S ( 3 * . I ) • 1 
TF(L.LT.TS(lt JD ISU* J)slS(1 * J)-1 
5623 CONTINUE 

5621 CONTINUE 

5622 CONTINUE 
CALL SETN(l) 

KOUNT c b KOUNT ~ ~ 

WRITE ( 6, 5020 ) KOUNT 

5020 FORMAT (lHltlox* *COWL AND FREE STREAM DATA AT KOUNT K 4,15//) 

DO 3939 J*lfJW 

ISS«ImAx ( J) -MM* 1-IFS 
TMAXXalMAX (J) *1 
I FTXj’i • E 0 • 0 * ) GO TO 509 
WRITE (8*511) J 

511 FORMAT(//10x**J a ** 12 /4Xt*I«,6x,#R#,10X, 

l*P**i n X,*Q** 9X * *PHE*t 8 X • *S I * « 1 OX * *M# * 1 0 X * *H* * QX,»PmI* 
1,8X»*rH0**8X,*gXm**9x,*T«) 

GO TO 51.2 

51T9~C 0 MT1TTU £ ' ~ ~ ‘ 

WRITE (6,5021 ) J 

5021 pORMAt <// 10X,*j c *»i2 /4 X»»i»,6x,«Z*« 1 Ox* 

l*P*»lnX,#Q*, 9x , »PHE», 8x»*si«,1 6 x**M** 10 X,*H*, 9X*#PhI# 

1 ,8X,»oH0**8X**GAM*»9X,*T*) 

512 CONTINUE 

DO 50?2 I si , I M A X X 
EMsQ(i*j)/COS(Sl <I*J) )/A <I*J) 

T (I*J)«FT(P(I,J) tPHZ (Jf J) ) 

WRITE ( 6 1 79 > I * 7 ( I , J) • P ( I * J) • 0 ( f * J ) * PHf ( I * J ) , S I ( I » J ) , Em , H ( I ♦ J ) , 

1 PHI ( I , J ) ,RHO (I * J) ,GAM ( I , J ) * T ( I , J ) 

5022 CONTINUE 

~3“93 9~ CON T Tn u e ; ~ ~- 

DO 5000 Mai, 7 

IF(IS(M,1) ,N E ,o) 60 TO 5001 

5000 continue 
60 TO 5002 

5001 CONTINUE 
WRITE (6,4000) 

DO 5003 Js 1 , Jw 
DO 500* Mai, 7 

ALPHA (M,j) sALPhAN (M* J) 

5004 SETA (M* J) aHETAN (M, J) 

WRITE (6,79) J, (ALPHA (M, J) ,Msi ,7) 

5003 CONTINUE 



WRITE (6,4001) 

DO SopS - J=1TDW 

WRITE ‘c 6 » ?9) J, / BETA (M,J),Mel,7) 

5008 CONTINUE 

" " WR IT E"( 6T4 0 02 ) ' 

DO 5009 J*1,JW 

WRITE (6*4004) jt (IS (M f J) ,Msl ,7} 

~5 0 0 9~CONT I nUE 

5002 CONTINUE 
5023 CONTINUE 

74“ CONTINUE 

IF(KOuNT.GE.KOl)NTc*20) CALL space 

IF (KOllNT.EO.KOUNTC*20.ANO»ICOW| T.EO.l .AND. IWRaP.EQ.O) CALL WRAP (0) 

IFTKO(jNT.EQ7KOuNTc*20T CALL MOTHER 

KOUNTbKOUNT+1 

IF(ICOWLT.EQ.I.AND.IWRAP.EO.O) CALL PlANES(o) 

CALL STEpTIFS"*MM, Dflx * X2 » FOUNT ) 

IF(ISTOP.EQ.l) KOUNTsKOUNT-1 
IF (IStOp.EQ.I ) WRITE (6 * 1000) 

1000 FORMA^r(*“I~lNDEX _ GREATER~THAN~MAXlMUM DIMENSION, CONTACT AT LOWER 
1WALL*/* OR SHOCK DOES NOT HAVE ? FREE STREAM POINTS*) 
iFdsfop.EQ.D call pnch 
IF (KOjjN T ,NE, 170R .TSWEEP.EQ.O) GO TO 1313 
CALL SW EE PT(1) 

00 TO 620 

'T3T3 — CONTINUE — ‘ 

CALL dERIV(MM) 

620 IF( ( (kOUNT-1)/ KOUNTP)*KOUNTP.ME. (KOUnT-1) ) GO TO 77*4 
T f ( lc nW LTE Q 71TO0 T 0 7 744 ~~ 

IF(ICoWLT.EO.l.ANn.IWRAP.EQ.o) CALL WrAP(1 ) 

7744 continue 

call _ sEtn (ii ■ ' ‘ ~ — ' 

KS*0 

961 CONTINUE 

7678“CONTInUE - — — — — 

DO 707 J*1 * JMAX 
IF(J.gT.JCALC) GO TO 707 

1 F"( J , G T , J I NT ) X U l a 0 • 

IIT*ImAX (J)-IFS* 2 
IITT«tllT-MM-2 
OELRbOELX 
IMAXjtalMAX ( J) 

IF(R.gE. (XCOWL-1.E"0<>) .AND.INT.E0.2) TMaXJstMAXJ+1 
DO 8 1*1, IMA XJ 

CALL F<RHO(I,j‘) »0(I*J) •R«Z(X«J) ,PHE(I,J> *XPlaM(I,J) ,XmLAM(i,J) • 

1 SIH.J) f A(I,J) tSlQ(I,J) fPQ(Ifj) » PHEQ ( I * J) ,FP(I) ,FM(I) ) 

8 CONTINUE 

I MAX jr I MAX ( J ) 

DO 7 I=1,IMAXJ 

I F ( I . NE 717 OR 7 J , L'T . fUI NTii ) )“GO TO 735 
IFfJ.oT. (JINT^I) ) GO TO 7 

imp=idummy*i 
7DUMM Y _ (ir=ZN(l7J I NT) 

DO 736 110*1, IMP 
7 R ( 1 1 0 » 1 ) *Z (I10,JFINAL) 

P R(llO»D«P (IlO* JFINAL) 



0 R ( 1 1 0 * 1 ) ®Q ( 1 1 0 1 JFINAL) 

M RITl 0T1 ) *H (T10 *JFINaL) 

Si R ( Ilo * 1 ) *SI ( 1 1 0 * JF INaL) 

PHIR(llo»l )=PHT (I 10 * JFINaL) 

PHFR (T 10. 1 )sPHp (110* JFINaL) 

RHOR ( ilO. l)sRHO(I10f JFIN aL) 

OAMRR ( IlO) S GAM( 110* JFINAL) 

7 ( II 0 , JFINAL) =7 — N(TIOTJINT) 

P ( 1 1 0 . JFINAL) «P N(UO.JINT) 

0 ( T 1 0 * JFINAL) *Q N(Iio.JINT) 

r (no, jfinalt*h NnioTJiNt) " ■ " ~ 

SI {IlO t jFlNAL)BSlNN{I10 t JlNT) 

PHI < 1 1 0 * JFINAL )=PHIN (110, Jl NT) 

PHETnOTJFlNADPPHENMlO - , JINT ) 

GAM(I]0, JFINAL) eGAMN (HO, JINT) 

736 RHO ( I 1 0 , JFINAL) *RHON ( I 1 0 ♦ JINT) 

TH5 vpsTHTJ F INAL) ~~ ~ 

TH ( JFINAL) ®0. 

DO 737 IR*1»NUmEXP 

J9sjra<9Tl— ~ ~ “ 

CALL TBL(ZDUMMY(I9) . PN ( 1 . J9 ) ,StnN< 1, J9> »HN(l,j9> ,PHIN(1»J9) • 

1 ON ( 1 . j9 ) .PHEN ( 1 * J9) *RH0N(1.J9) .GAMN{1,J9 ) »TmX • JFINAL • IMP* 1 9) 
UlnOM ( lTJ9 ) #C0S^( PHEN ( lTJ9 r) ' 

V 1 *QN ( 1 » J9 ) *TAN ( SINN ( 1 . J9 ) ) 

W1«0N(1#J9)*SIN(PHEN(1*J9) ) 

vTb-wI “ ' 

WTeV] 

IF(I9.NE.1) GO To 8697 

UWN(])«U1 

VWN(1 )«VT 

WWN(1 )bwT 

XWN'd ) *»PN 

THWN ( I ) bZSAV-ZN ( 1 .JINT) 

YWN ( 1 v«THWN ( 1 ) 

8697 CONTINUE 

0N(1.j9)sSQRT<U1*U1*WT*WT) 

PHEN (l » J9) **ATAN(WT/UI > 

SINN ( l * J9) »ATAN ( VT/QN ( 1 ♦ J9) ) 

737 ZN(l,j9)sO. 

TH (JFINAL) »THSVR 

DO 17a3 110*1, tMP 

7 < I 1 0 • JFINAL)*? R(I10,1) 

P (IIO.JFINAL)BP R(lio.l) 

0 < I 1 o , JFINAL)«9 R(IlO.l) 

H ( I 1 0 .JFINAL ) »H R(I10,1) 

SI (IlO.JF I NAL)cSI R(I10,1 ) 

PHI ( I 1 0, JFTNaL) sPHIR (110,1) 

PHE ( 1 1 0 , JFINAL) *PHER ( 1 1 0 , 1 ) 

RHO ( If 0 , JFINAL) *RHOR (110,1) 

1 743 6 AMTI i 0 » JFTNATL ) “GAMRR ( ITo") 

GO TO 7 
735' CONTINUE 

lF(ICoWL.EQ.l.ANO.I.GT.IlTT,ANn,I.LT.IIT) Go TO 7 
IF(ICO w L.EQ.1,aNO.IS(1» J) .EQ.ImAX (J)- l.AND.T.EO.IMAX (j) ) GO TO 7 
DO 89 Hal, 7 

I F (I S ( M , 1 ) . E Q7 n)~GO TO 89 



ITFSTsIS(M»J)-T 

IF( {"m/2)#2.EQ,m> ITESTsIS (M» j) 
IF(I.gE,IT£ST.aNo.I.LE. ( lTE$T*n > GO TO 7 
89 OONITInUE 
P'T »Pkj (I » j ) 

PHETcpHEN(I*J) 

SITsSlNN(l»J) 

KALCsl 

ALL«*1. , 

BALLbo. 

I F ( B A v • E 0 • 0 * ) fiO TO 1482 
ALL®, 8 
BALLb.5 
1482 CONTINUE 

DUMbDfLR* ( TAN (PHE ( I » J) )«ALL*BALL*TAN(PHEN(I, J) ) ) 

ZN( I» j)«Z(I«J)» DUM __ 

TFd.rfl.i") "fiO TO 13 
7Ae, 5# (Z ( I-1*J>*7(I*J) ) 

IT*1 

10 raTab(Za-z(i-i.j) )/(Z( i»j)-Zd-iVj“n 
ITbIt+1 

ALAMexPLAM (1-1 , J) ♦RATA*(XPLAM<r* J) -XP lAM (I-?* J) ) 
DUMPbaLL*ALAM+BALL*XPLAMN ( I « J) 

ZAT®Zw ( I ♦ J) -OU mP*oELR 
FR=ap S ( (ZAT-ZA)/(Z(I*J)-Z(I-i.:i ) > ) 
IF(ERTLt.ERZZZ) 80 TO 9 
ZAbZat 

IFdT.LT. 20) GO TO 10 
WRITE ?00) ' ‘ 

200 F0RMat<* ERROR IN a POINT ITERATION*) 

CALL pN CH 

9“IF-(I”rQ7TMAX(grrGO”TO _ ll 

13 7B«.c*(Z(ItJ)*Kl*l»J) ) 

ITbI 

12 r atbbtzb-z riTj'roT zti ♦ itj ) -z < r.T> > 

TT«lT* 1 

BLAMasyMLAMd, J) *RATB* ( XML AM (I ♦ T » J) -XMl AM ( I * J) ) 
DUMP s a L L*BL AM*RALL*X M L A MN~ (l7j) 

Z8T®Zn ( I « J) -DUMP*0ELR 
prbAo*; ( (ZBT-Z8) / (Z ( I ♦ 1 * J)j-Z ( j i ) > ) _ 
IF(EP,LT.ERZZZ) GO TO 11 
7B*Zot 

TFdT.LT. ?0) GO TO 12 
WRITF(6,201 ) 

201 FORMat(* error IN B POINT ITERATION*) 

call pnch 

11 CONTINUE 

R02«0n < I « J) *QN ( 1 t J) *RH0N ( I * j) 

IF(I.f Q.I) GO TO 14 

IIbI-1 

fp abfp (ID ♦rata* (fp (d -pp an ) 
RHOAbpHO(II*J) ♦RatA*(RHO(I*J)-ohO(IIi j) ) 
o Abo ( n* j) *rata*(q d»j)-o (H»j)) 

A Aba (II*J) ^TAMA (I.J)-a (II»j)) 

PHEAbpHe ( 1 1 * J) *RATA*(PHE(I« J)-phE(II* J) ) 

P “Abd (M*J) *RATA*(P a*J)-o (Tx'tj > ) 



OA?*QA#QA 

FI =F P‘ A * (RHO A#Q A2 ) 

AlsAAv*Al *BAV*FPN ( I t J) /RQ2 
ac*BAlI.#SQRT ( (ON ( 1 1 J) /aN ( 1 1 J) ) 4*2-1 • > /PQ2 
' A2sSOpT ( (OA7AA) **2-r» )"/ (RHOA*Oa? >*At,L*AC 
1« IFd.FQ.IMAx(J) ) go TO 15 

1 1*1 ♦ 1 

Fp-RarM—fT) ♦PATB* (FM~ ( II) -FM (I > “ ) 

RHOBapHO ( 1 1 J) *PATB* ( RHO ( 1 1 , J) -ohO ( 1 1 J) ) 


0 

8*0 

(I*J) ♦ratb*(q 

* lit J>»0 

(It J) ) 

A 

B»a 

( 1 1 J) ♦ PATR* (A 

(lit J)-A 

( I * J) ) 

P 

Bsp 

(It J) ♦PATB«<P 

(lit J)-D 

(I* J) ) 


PHEB*>PHE(It J) ♦RATB*(PHE(IIt J)-PHE(It J) ) 

QB2*QR*QB 

BleFPB/ (RH0B*QP2 ) 

Rl*AAv*Rl*BAV*FMN(It J) /RQ2 
AC*BA L L*SQRT ( (oN < I » J) /ANTI tJ) ) 4*2- 17 ) /RQ2 
P2aS0pT ( (QB/AB)**2-1.)/(RH0B*0B2 )*AlL*AC 

1 5 TF(I.ME.l) GO TO 16 

TTel — “ — - 

VOU*TaN(SI (I t J) ) /COS (PHE <1 , J) ) 

115 CALL RWALL(RNtTH(J) tZN(l,J) tFRBtFTB) 

PHEN ( f t J) *ATAN ( VOU*FTB ♦fRB ) 

PN ( 1 1 J ) sPB* (P hEN ( J t J) -PHE0-B1 «nELR) /B2 
GO To 17 

16 IF <I.E°. IMAX ( J) ) GOTO 18 

PN (I t.j) * (A2*PA*B2*PB* (Al-Bl ) *DflR*PHE A-PHEB) / (A2*B2) 
PHEN ( I , J ) sPHEA-A?# ( PN ( I , J) -PA ) * A 1 *DELP 
GO TO 17 
IB CONTINUE 
IT*1 

VOU^TaNTSI TlMAXJt J) )/COS(PHE(lMAXjt JT) 
ll 0 CALL TWALL<RNtTH(j) *ZN(IMAXJ , j) tFRT tFTT) 

PHEN ( I t J) sATAN ( VO U*FTT *pRT) 

PN(TTJ)*PA*(PHEA-PHEN(I,j) ♦Ai«nELR)/A? 

17 CONTINUE 
$PHE*SlN(PHE(I f J) ) 

TSI*TaN(sI (I t J) ) 

CSI»C0S(SI (It J) ) 

CPHEscOS (PHE ( 1 1 J) ) 

VO«Q ( I * J) *TSI 
ti*delR/cphe 

TF(Xji .EO.l t) Tl *Tl/Z ( 1 1 J) 

IF ( X j .E0.1.)T1*T1/R 
T2sP0 ( 1 1 J) /RHO ( I . J) /O ( 1 1 J) 

T3sTSl *OQ<I,J) 

T4*0(T* J)*SIQ(T* J)/CSI **2 

T5*0 ( 1 1 J) *CPHE*X J 
1*0(1, J)*SPHE*XJ1 

VC*VD^Tl*(T2*TSl # (T3*T4*T5) ) • A A V 

SPHENsSlN (PHEN ( I , J) ) 

TSINsf AN(SINN( t* J) ) 

CSINscOS(SlNN(It J) ) 

CPHENsCOS (PHEN ( 1 1 J) ) 

TT1*0FLR/CPHEN 

IF ( X Ji «GT. 0 . ) TTUTT1/ZN(I,J) 



IF(Xj,GT, 0.) TTl sTTl/RN 
T 2 ? s P 0 N<I 7jV7 RtjON(I»^jy/Q N ("i * J > 

T33*T«;INM»QQN ( I , J) 

T44s0m(X, J)#SION<I, J)/CSIN 
T55«0NTl,jr*( C PHEN*Xj*-SPHEN*xJT) 

DV/C s TTl # (T22*T5lN*(T33*T44*T55) ) *BAV 
VCaVC-DVC 

T 1“ 1 = nELR^TANirstT)/ C OSTPH E T > 

IF(Xji.GT.O.) TllaTll/ZN(I, J) 

IF (X j # GT, 0* ) TllssTll/RN 
Tl *T riisi 

T1«H#ALL^T11*RALL 
RHOZsdHO ( I * J) -RHOO < I » J) *T1 
PZeP ( T * J ) «PG ( j « J ) *T 1 ■' 

GAMZsigAM(I» J)-GAMQ(I* J)#T1 
PHON ( i * J) sRHOZ* (PN(I* J)/PZ) •* (l*/GAMZ'> 

T2bQ 0 (I, J)/CSI ' *Q ( I » J) *T Si /CSI *SIQ(I*J) 

W 70 O ( I , j) /CSI -T2»T1 

VV728sVVZ*VVZ 

V V C a S 0 R TTV VZ 2 *2 T o G4MZ7‘(GAMZ-1T)*(P?/RH0Z-PN ( I * J) /RmON (I ♦ J) ) ) 

VVC2*yVC*VVC 

ON(I* J)*SQRT(WC? «VC*VC) 

'SINN ( I * J) bATANI (tfr/QNTl » J j ) " " 

HN(I*j)*h(I*J)*. 5*(VVZ2 »WC? )-HO<I*J)*Tl 
PHIN( 7 # J)sPHI (I*J)-PHIQ(I.J)*TT 
TNTI . j ) eFT fPN ( I » J ) * PH IN (I » J) * Hm (I f J ) ) 

GAHNfi, J)*FGAM{TN(!*J) *PNM* j) ,PHIN(I,J) ) 
aN(Ij j)bSQRT <Q«MN(I*J)«PNjl»J> /RHON(I.J) ) 

CALL XL AM ( QN ( I , J ) VAN < I » J ) » PHFN ( I * J ) * XpLAMN ( I • J) • XML aMn ( I « J )) 
TF(I,nE.1.AND*I.NE.IHaXJ) go Tn 1642 

it«it*i 

V'OUT^ _ A'NTSTNKnTTjF)^0 _ OSlpWfFrri7jT^ ~ " 

FRRe (VOU-VOUT) 

IF(ABS<FRP) .LT.l.E-10) GO TO 1*42 
I FTI T.GT72) “GO“To ~21 

eri«err 

VOUlfcVOU 

VOUbVoUT 

GO TO 171 

21 VOUNavOUl-ERl* (VOU-VOU 1 ) / (ERR-PR1 ) 

FR1«FRR 
VOUltsvOu 
VOU«VoUM 

171 I Fd T .GTVl O ) CaLL ERROR ( 171) " 

!F(I,EQ.l) GO TO 115 
GO TO 118 
~r642 rONm!UE 

FCBABs(i.-PT/PN(ItJ) ) 

IF(EC.LT,1.E-04.0R.IVY.EO.O) Gn TO 7 

" SITbSTNNTIV^) 

PHETttpHpN ( I * J) 

PTbPN(I.J) 
kAlL«k^LL *1 

IF(KalL.GT.ILOcAL) 00 TO 1493 
ALLo. 8 
BALL®. 5 



P 0 TO 1482 

1493“ WRITE (6TV393) 

1393 P0RMat(# AVERAGING PROCESS DOES NOT CONVERGE IN CHAR3d*> 
STOP 

7-cONTfNUE 
707 CONTINUE 
7070 CONTINUE 

X^lsXjTS 

IF(IC0'*L.EQ.1) GO TO 430 
DO 97 1*7 

TFCIST M O)TEQ7n) G0“T0 97 ~ 

JWWbjw 

TF(KS.EO.l) JWWsJHAX 
D096 “Jb iy j w w ~~ ~~~ 

IF ( J,gT. JINT) X J 1 b 0 • 

I«sIS (M* J) 

I F ( ( m/2 ) 4'2 • EQ • M ) I«I*1 
IF(Bav.EO.O.) BETAN(M, J)bBETA (m, J) 

7N(I» J)e,5 * (TAN (beta (M f J) > *TaN{rETAN(m»J) ) ) *DELR*Z ( I * J) 
7N(I-1 ♦ J)o2N(I,J) 

96 CONTINUE 
XJIbXjIS 

97 CONTINUE " 

430 CONTINUE 

IFfJW.GT.jCALC) GO TO 7500 
IF(ICOWL.EQ.I) GO TO 1075 
DO 431 Mb! *3 

IF ( IS (M, 1 ) • E Q • 0 ) 00 TO 431 

SHCbO. 

TF(RAV.GT.O.) sHCml. 

CALL ALSHOC(M) 

JWWbjw 

IF(KS.EO.I) JWWBJMAX 

IF(M.nE.KCUAND,M.NE.KC2) call F SHOCK ( M» 1, J W W> _ 

IF (M.nE.KCI .AND.M.NE*KC 2> CALL HSHOCK (M. 1 . jww*0 > 

IF (M.e°»KC1.0R.M,eQ«KC 2) CALL rSURF(M,JWW) 

I F(ISIM.EQ.I) GO TO 4 31 ___ 

IF(KS.EQ.0)CALL WSHK(M*1.) 

431 CONTINUE 

1875 CONTINUE 

IF(ISTM.EQ.I) GO TO 2241 
ISOPbO 

TFdCOWL.EQ.l.AND.IlT.EQ.lMA X (jMAXJ) T SOJP*l 

call wall ( rn» i cowl * t i t » i it t ) 

IF(lCoWL.EQtl) GO TO 4483 
IF (ICOWLT.EQ.O) GO TO 8892 
DO 5631 J® 1 9 J W 
IMAX JO*IMAX ( J) 

IMAX JP»IMAXJQ*J 
Z N7YMA X JP * J ) »ZN { IMA X JO » J ) 

P N(iMaXJP»J)bP N(IMAXJQ.J) 

D N(iMaxJP»J)bQ N ( IMAXJQ* J) 

H N(iMAXJPtJ)aH N(IMAXJQ,J) 

SINN ( IMaX JP» J) sSlNN ( iMAXjQf J) 

PHEN(IMAXJP* J) bPHEN(IMAXjQ* J) 

PHIN (IMaxJP,J) b PHIN (IMAXJ0 # J) 




RHON< IMAXJP* J) b RH0N (IMAXjQ, J) 

IF ( J . WETJMAX TlT'GO” TO 5631 
U WN<iMAXJP)bU WN(IMAXJO) 

V WN(lMAXjP)sV WN(IMAXJQ) 

W WKT( iMaxJPJ^b^ WnT( IMAX jQl 
X WN(iMAXJP)3X WM ( IMAXJQ) 

Y WN(iMAXJP)bY WN(IMAXJQ) 

THWNTfMAXgP^HWKlTIMAXJQ-j — 

5631 CONTINUE 

IF(KS.Gt.O) GO TO 2241 

no 2346 mbits 

IF(IS(H, 1) .EQ.b) GO TO 2346 
CALL wDISC(M) 

2346“C0NTInUE 
2241 CONTINUE 

IF(ICOWL.EQ.O) GO TO 8892 
4483 OO - 788 J* 1 * Jw 

IF( J.qT. JINT) xJlaO. 

ISAVEbO 

iTTBlMAFTQl^lFi^I " — 

IITTbiIT-MM 

IMAX J(5*IMAX ( J) ♦ 1 

DO 8890 IsIITT‘*IMAxJQ 
IF(I.eQ.ISAVE) GO TO 8891 
00 R8p3 M«1 # 7 

TFT1 SyMTJ) , EOT 0) 3OTO0893 - 

ITESTbIS(M*J)-i 

IF C <M/2)*2.EQ.M> ITEST*IS (M* j) 

I F1T7NE7IT ESTrG0“T0‘ae93 “ 

7N(I. j)bZ(I,j) 4 TaN(BETA(M#J) }* fRN-P) 

7N(IM*J)bZN(i,J) 

ISAVEilTXSm 

GO TO 8891 
8893 CONTINUE 

2rAMBxPLAM ( ITJ) 

IF (OPf*LT • 0, ) 7 LAMbXMLAM(I,U) 

IF(I,EG.IIT.ANn.lSOP.NE.0)ZLAM a PHE(IlT,JW) 

ZNTITj) hZ ( ITJ)TZUM* (RKI-r ) “ 

8891 P N ( j * j) »P (I*J) 

0 N(f»J)oQ ( T * J) 

H N ( j * JT=H (I * J) 

RHON ( I * J ) «RHO ( I * J) 

PHIN(i*J)«PhI (I. J) 

PHEN(I»J)apHE(I*J) 

SINN ( I * J) ®Sl (I*J) 

TF(J,nE.JMAX* 1) GO TO 889O 
ZNTI* j)sZN(I f JMAX) 

U WN(j)bI) W(I) 

W WN ( I ) bW W ( I ) 

XWNTiTbRN 

IF(Xjf .EO*l.)GO TO 8696 

CALL SWALURN,zN(I, J) ,XWN(I) ,YwN(I) »Fx*FZ) 
y HW NTf)TYWN { I) 

IF(Xj.E0.1.)THWN(I)®ATAN(YWN(li/XWN(I) ) 

8696 IF(XJj.EQ.l.)CALL SWALL1 (THWN(I ) ,RN,ZN (I » J) ,FX*FZ) 
vwN‘(T)*iuwN(n*FXTwwNrrr*FZ) — 



IF(Xji.GT.O«) VWN ( I ) ®VWN ( I ) #7N {?* J) 

8890-CONTInUE 

788 CONTINUE 
XJleXjlS 
8892~C0 NT!nUE 
KSaK$*l 


00 9999 J=1*JW 

“ TMflX jl*IMAXTJ) 

DO 9999 I a 1 * IMA X J1 

TN(I,j)sFT<PN(TtJ) tPHlN(l,J) ,H h(I,J ) ) 
r,AHNT I * J) bFGAM (TN ( I * JT»PN ( I * j ) ', PHI N { I , J ) V 
AN(I» j)«SQRT(GAMN(I*J)*PN(ltj)/RHON(I, J) ) 

9999 CALL xLAM (ON { I f J) ,AN(I#J) «P heN(T*J> *XPLaMN<i*J> *XMLaMn(I*J) ) 
I Fllnys- E’OTOTO'R .BAV1GT i“OT) GO T n “8 8 9 8 " 

AAV®, 5 
B A V® , 5 

T FTI CO w L T • EO * 1 , ANq . I WR AP , EO . 0 > CALL PLANES (! ) 

CALL 0ERIVN(MMj 


DO 9998 J® 1 * JW 


IMAXJbIMAXTJ) ‘ ~ 

DO 9998 I®1 * iMflX J 

CALL F(RHON(I,j) ,ON(I,J) ,RN,7N> ItJ) *P hEN(I,J) ,xPLAMN(T*J) * xMLAMN 


1I*J> • SlNN (T * J ) « A N ( I • J ) «SldN(If J) *pQN(l*J)'fPHEQN(itJ) *ppN(jt j) * 
lFMN(I, J) ) 

9998 CONTINUE 


IF (Ks,EO, 1 ) GO TO 961 


8898 CONTINUE 
ICOWLoO 


AAV® 1 , 
BA V«0 , 
DO 1645 


M®1 *3 


~IF(M,fQ,?) GO TO 1645 

IF(IS(M,1).EQ.0> GO TO 1645 
CALL ALSHOC(M) 

1645 CONTINUE 
21 2 CONTINUE 

TF(RN.LT.XXI) R 0 TO 7500 
IF (INT.E0.2) GO TO 7500 
INT®1 
J=JJI*1 

7 S’CTl T H J J ei t H ( J)*X J 

XCN®RN*COS(THjj) 

XC®R#C0S(THJJ) 

TF (Xr^TTGETCXX! -5.E-04”) • AND.XC«LT* ( XXI-5.E-04 > j CALL iNtER 
IF(XCM.LT. (XXI-5.E-04) ) GO TO 7500 

JJI®J 

J»J*1 

IF(J.gT.JW) GO TO 7500 

IF (ISlM.EQtO.ANO.J.EQ.JW) TH (JVsTHWN(IMaXJ) 

GO To "7501 
7500 CONTINUE 

CALL L TH M 

IF(ISwEEPTEQ.O) CALL EMBED 
DO 1941 J®1 * JW 
IF ( J.GT, JCALC) GO TO 1941 
IMAXJ1®IMAX(J) ♦! 


IF (ICOWLT.EQ.Ch TMAXJlslMAX (J) 

D 0 2 0 I a 1 * I H’A X ’ll 
7(1* J)«ZN(X« J) 

_ p(i* J j_ pp J!! * 1 * *L> 

PHF(I,J)=PHEN|{T,J) 

0 ( I * J) a QN ( I f J) 

SI (I*J)*SINN<I,J) 

H(I* J) SHIM (It J) 

PHI(I,J)bPHIN{t*J) 

RH0(I, J) «sRHON(I* J) 

T ( I » J) *FT CP ( I * J) *PHT( I * J) *H ( T • j) ) " 

RAMII, J)bFGAM(T(I,J) tP ( I • J) *PHT f I * J > ) 

A (I* J)=SQRT (GAM(I,J)*P(I t J)/pHn(I.J) ) 

CALL xLaMTQTI • J ) * A (I t J) *PHE (T* J) tXPLAMd* J> * XMLAM ( I * J) ) 
20 CONTINUE 

DO 3op4 Mel • 7 
A L PH A ( M * J ) = ALPm A N ( M * J ) 

ALP(M,J)bALPN(m«J) 

3004 BETA (M* J) eBETAM (M, J) 

1941 CONTINUE “ 

IF (JW.GT. JCALC) 00 TO 2U 
IF(ISIH.EQ»1) GO TO 214 
~ IMAXJalMA'X(JW)+l 
IF (ICOWLT.EO.o) IMAXJ bImAX(J) 

DO 401 I«1*IMAXJ 
II W(I)*U WN ( I ) 

v w(n*v wn ( i ) 

W W(J)*W WN ( I ) 

THW’( 7 ) *THWN ( I ) 

R*RN 

THWX*tHW(I)*Xj 

XW(TTbR^0S(THWX1 

401 YW(I)bR*SIN(THwX)*(1.-XJ)*THW(T) 

TH(JWjsTHW(1) 

2T4 XlsX? ~ 

IFRbO 

TF(JW.GT.JCALC) CALL SWEEPT<?> 

“RsRN 

IF(JW.Gt.JCALC) GO TO 8759 
IF ( ISIM.EQ.O) CALI ADDSUB 

8759 IF ( (KOUNT/KCORB)* K CORR,NE.KOUNT) GO TO 1 

IF (ICOWLT.EO.I.AND.IWRAP.EQ.O) CALL WPAP(O) 
call MOTHER 
GOTO - 1 
END 



SUBROUTINE space 

COMMON /A/ ^ITTHMAXVTHM o )TR 7?(40 .10) .P‘(40.l0> * PHr ( 40 * 1 0 > . 

1 0(40,10) »SI (40.10) *H (40. 10) .Pul (40.10) .RHO>40*lO) »GA m(* 0.10> 
COMMON /C/ IMAv (10 ) . JMAX, ISTaRt.KOUNTF.KOUNTP 
COMMON”7D/UW”(4o _ )*VW'(4o)*WW (40 ) VXW (40)*YW (40)»THiy (40) 
COMMON /H/ ISIM 

COMMON /J/ QN(40.10) .PHEN(40*ln) »SINN(40.10) »XPLAM(40,10) . 
n(MCAXT40Tl 0 )TFP ( 40 )TFM { 40 ) , A f 4o,10) 

COMMON/M/ I S ( 7 . 1 0 ) 

COMMON /S/ RI.KOUNT.KOUNTS.ICOwlT 

COMMON /W/-ISIMEXV1DUMMY. JINT.^nUMMY (40) »THWW (2) . JOl • JD2 

COMMON /IQ/ NUMEXP.ZSAV 

COMMON /WR/ I WRAP 

COMMON /SPE/ KnUNTC " 

COMMON /TEM/ T(40,10) 

COMMON /PL/ DE TH 

m ME N ?I ONLAO RilW)”^LT)F 0 R(TOO) ~ ' ‘ ' 

DIMENSION LDROP(IOO) .LADD <100) 

DATA 1942/0/ 

T F(l74^TEQ.0VANDTIWRAP7EQ.0)OETH=TH(giNT)-TM(J I NT-f) 

I942el 

ICON B iS(3.1)-l 

IS3=IS <3.1) 

OZT® ( 2 < IS3» 1 ) -7 ( 1 . I ) ) /FLOAT ( ISO-2) 

I JL«1 

uu«jmax ; ~ , 

1300 KSAbI 
MSA«1 
MS A Sir) 

MSaS*1 

IREDO b 0 

r>o 4oo 1 * 1*100 

LrROP ( I ) bO 
LDROR ( I)bO 

L A 0 R ( T ) so ~ 

«00 LADD(i)bO 
402 CONTINUE 

O0T1T I JLTI JU “ 

,B L 

JS*»J 

_ ico^biS(3,t;t-i 

IH*1 

TLb? 

IU«ICON 

iF(LDROP(l) ,EQ.O,aND.IREdO,EQ.T,AND.LoROR( 1‘) ,EO.O) 00 TO 7 
KPaO 

^CONTTkiUE 

KPsKP^l 
4121 CONTINUE 

Wm?«TU7TU 
KPbKP* 1 
IT«K 

DZ = Z(k*J)-Z~<K-1.J) 

IF(IReDO.EQ.O) 60 TO 2600 

DO 44o KRal . KS aS 

IF (J.qT, J lNT.AND.KP.EQ.LDROR(Ko) ) GO TO 441 



TF(J,lE.JINT.AND.KP.EQ.LDROP(Ko) ) GO TO 441 
440 CONTINUE 
GO TO 3 

260° CONTINUE 

IF (D7/DZT.GE..333) GOTO 3 
IF(IT.NE,IU) GO TO 1500 

TTelT-1 

IF(KO||Nf,LT.KO(lNTC*40) GO TO 3 
1500 CONTINUE 

l, DPOP(KSA) =IT 

IF(J.gT.JINT) LDPOP{KSA)Blf*!Sf?.JINT)-lS(3,J) 

IF < J.gT. JINT,aND.IU.EQ.IS( 3* J)-i . AND .kOUNT.gT .KOtjNTC*?! > LDROP ( KSA > 


TF(J.gT.JINT) lDPOR(KSA)bIT 
KSAsKSA* 1 

_ GO To _3 

442 TTeTT-1 
44 1 CONTINUE 

I Me T Mft X ( J ) 

TOV»0 

IF ( J,EQ. JINt.AND.z (IT*J).Lt,7Sav) IDUHmY«IOijmMy» 1 
32 DO 2i I«I_T*lM_ 

7d«j)«za*iiji 

P (T,J)aP (U1*J> 

Q (I . J)aQ ( I_4 1 »J) _ 

M ( I * J ) «H < I ♦ 1 • J ) 

GI (I,J)=SI (U1,J) 

_PHEJX. J ) «P_ H E (I ♦ 1_* J] _ 

PHI ( I * J > aPHI ( I 4 1 • J ) 

PHO ( I f J ) eRHO ( I 4 1 • J ) 

GAM ( I * J ) ®GAM ( I * 1 » J ) 

T ( I • J) *T (1*1 * J) 

4 ( I » J) *A 

X PL AM (I , J ) = X PLAM ( !♦! ♦ J ) 

XML AM ( I * J) aXML AM ( I ♦ 1 » J) 

IF(Io v .EO,0) GO TO 21 
_ U w ( I ) B U w ( I 4 1 ) 

V W ( T ) *V W ( I ♦ 1 ) 

W W ( I ) *w W ( I ♦ 1 ) 

X W(I)»X W ( I * 1 ) 

V W(i)«Y WII* 1) 

THW ( I ) bTHW ( 1 4 1 ) 

21 CONTINUE 

TF (TSiM.eQ.I.OP.L.NE. JMAX) GO TO 30 
IF(IOV.E0.1> Go TO 31 

IOV m 1 

J S J*1 
GO TO 32 

31 JgJS 

30 CONTINUE 

IMA X (j)*IMA X (JV-1 

IFJ IT.LT.ISO, j )) is <3j J ) «I S ( 3 , J )-l 

IFdT.LT .lS(l,jn lS(lf J)aiS(l'«j)-l 
IF(K.gE.IU) GO TO 3 

TLelT 

rueiu-1 



r, 0 TO 4l?l 

3 CONTINUE ' 

00 TO (6»5»7) #IH 

6 IF ( I S f 3 • j) ♦2.E0.IS(1» J) ) GO TO 530 
TLsIS (3» J) *1 
IUsIS(l,J)-l 
IHb2 

lFrJ7NErJMAX.0P.ISl MEX.EQ .1) G n T0~4 
OZlQaZ(IL»J*l)-Z(IL-l*J*l) 

DZ2QbZ<IL*1» J*1 )-ZdL-lt J*l) 

TF(D7iQ>0Z2Q.Gf..?) GOTO 4 
UDR0P(KSA)*IL 

TF(J.rT.JINT) LDR0P(KSA)BlL*lSf3*JlNT)-IS(3. J) 

IFU.GT.JlNr) |_OROR ( KS A) s I L 
ksabksa+i 
GO TO 4 
530 "k’PbKP + 2 

5 IL*IS(1»J)*1 
TUbIMaX(J) 

1 Mb 3 

GO TO 4 

7 ILb? 

I FTL anD (T) •EQ.O*AND.MSAS.EO.i'. a NO . I REnO , E 0 . TV GOTO 2 

iu«IS(3* J)-l 

KPbO 
IHbI 

s contj m ue: 

KPbKP* 1 

8484 CONTINUE " 

00 O «=IL*IU 
KPbkP+1 

ITbK 

DZ*Z(K*J)-Z(K-1*J) 

IF ( I ReDO.EQ .0) GO TO 601 

DO” 4^4 KRb1»MSaS 
IF(IM A X(J) .GE.37)G0 TO 9 

IF tJ.oT.JINT.AND.KPtE Q»LADR(KR '^ ) GO To 445 

IF ( J . lE . J I NT . AND . KP . EO . LaDD < KR )7 AND 71 1 0 . NE , j S ( 3 * J ) - 1 • oR. I WR aP • EQ 
11) ) GO TO 445 

444 CONTINUE 
GO TO 9 

601 CONTINUE 

TF (D7/DZT.LT. 1,5) GO TO 9 
1W1 CONTINUE 

IF(J.mE.JMAX.OR.ISIMEX.EQ.I) go TO 5021 

ZQQ«Z ( K» j > J) ♦ , g» ( z (K » J) »2 ( » j) ) 

DZ10«ZQQ-Z(N-1,J*1) 

DZ2GbZ(K, J* 1)-Z(K-1» J*l) 

__ IF(DZ]Q/DZ2Q.LT..4 ) GO TO 9 

5021 CONTINUE 

LADD (MSA) bIT 

IFTJ.GT.JlNT)LADD(MSA)«IT*lS<3.JINT)-iS<3,j) 
IF(J.gT.JINT)Ua”DR{MSA)bI T 
MSAbMSA*1 

60 To 9 

445 CONTINUE 



IMAXXbIMAX ( J) ♦ ) 

IOV»0 

33 DO lp IslT» IMA xX 
I1bImaXx+ 1*IT-T 
T 2*s IT- 1 

7(I1*J)s7(I2»J) 

P(n«j)«P(Z2t J) 

0 ( 1 1 * J ) 8 0 (I2*J) 

H (f2.J) 

PHI ( 1 1 * J ) bPHI < 12* J) 

PHE(Il * J)*PHE(I2,J) 

PH0(I1.J)sRH0(T2.J) 

SI (litJ)«Sl (I2»J) 

OAM (IUJTsQAM (I2.J) 

T(n,j) B T(l2tJ) 

A ( 1 1 » J ) g A ( 12* J) 

X PL AM ( 1 1 t J) 8 XPLAM(I2*J) 

XHLAM ( Il , J)aXMLAM ( I2 f J) 

IF(IOV«EO.O) GO TO 18 
U W(I1 )bU W(I2) 

V W < 1 1 ) *V W ( 1 2 } 
w W ( I j ) b W w ( 12) 

X W ( Il)ex W (12) ' 

V W ( 1 1 ) by W ( 12) 

THW (If) bTHW ( 12) 

1 8 cONTImUf 

IF (ISlM.FQ.l.OP.L.NE, JMAX) GO TO 3* 

TFdOV.EO.l) GO To 35 

iOv/ttl 

J«J*1 

00 To 33 

35 JbJS 

3* CONTINUE 

IMAX (j)bIMAX ( J) ♦! 

1 Pst f*l 
IMbIt.1 

ioven 
rat*, 5 

Z(lT*j)*,5*{Z(iP*J)*Z(IM.J ) ) 

3 8 P ( T T » J ) ° P ( iMt J) *RA T * (P ( I p ,J1-P ( I M t J ) ) 

0 { IT* J) *Q (lM t j)*RAT«(0 (Ip, J) -Q (IM t j,) 

H (IT*J) b H (IM, J) ♦RaT*(H (IP,J)-H ( I M * J ) ) 

SI ( l i»J)« S l (T M»j)*RAT»(St (lP t J)» S I_J_I M * J ) ) 

PHE ( IT* J) oPHE ( IM» J) ♦RAT« (PHE (ID t J) •PHp ( I M i J ) ) 

PHI <lj *J)»PHI (fMfj) ♦RAT*(PHI(lD*J)-PHI<IMtJ) ) 

P HO < lT»J) g PHO(lM« J)*RAT # (R h Q ( Ip* J>»RH O t I M • j ) ) 

T 8 IT 

T ( I * J) ®FT (P ( I * j) »PHI (If J) *H(I* j) ) 

OAM ( I , J) sFGAM (T ( I * J) iP(IiJ) tPHT (It J) ) 

A ( I ♦ J) ®SQRT"(GAM ( I f J) # P ( I f J) /RHo ( I f J) ) 

CALL XLAM (0 ( I f J) f A(I*J> »PHE ( I * J) f XPLA m ( I f J) * XML AM ( 1 1 J) ) 

IF(ISiM.eQ*1,0R*L.NE*JMAX) GO TO 36 

TF(IOV.EO.I) GO TO 37 

T0V*1 

JsJf-1 

7(nTj)vrdT f j- 1 ) 



PAT* <7 (IT* J)-Z<IM.J) )/(Z(lP. J)-7(TM* J'j ) 

60 TO 3fi 
37 JbJS 

U W(TT>«U W ( I M > ♦PaT* (U W ( IP) -U W(lM>) 

T trw ( I M r* R AT*-< W ' W ( lp).w'w ( IM) ) 
XW(IT)°R 

CALL SWALL(R.Z(IT.J) *XW(iT) .YW(IT) *FX,FZ) 

t h irryn y rcm 

VW(IT)«UW(IT)*fX4WW(IT)*fZ 
36 CONTTMUE 

TFTIT . LT 7 IS ( I , j) ) rS ( lTJ)^ISTl ', jf ♦ I 
IF ( I T ,LT # IS ( 3 1 .J) ) IS(3tJ)*IS(3.jUl 
I L e I T ♦ 2 
lUsIIul 

IF(IL.GT.IU) GO TO 10 
GO TO 8484 
9 cOMTTmUe 
10 CONTINUE 

TF(IH.E0.2) GO TO 2 
IH=2 

ILaIS(3, J) *1 

iU«lS(l t J)-l 

60 To 8 
2 CONTINUE 

IFdREDO.EQ.l) GO TO 600 
IF(KSa*F~QT1.aNd«MSA»EQ.1>G0 TO 600 
kSaSbkSa -1 

IF( KSaS .EQ.O) KSASal 

M S A S b M S A* 1 

IF(MSaS.EQ.O) MSAS*1 

DO 5p Q Kb1*KSAS 

00~~50 0 MalTMSAS 

500 IF'(L0P0P(K) .EQ.LADD(M) ) LAOD(MV«0 
DO 321 J®I JL* I JU 
IF(J.lE.JINT) rO TO 321 
IF (Z IP *J) *GT, 2,*DETH) GO TO 32? 
no 3 22 Mol.MSAS 

322 IF(LAoD(M) .EQ,2) LAOD(M)bO 
60 TO 320 
321 CONTINUE 
320 CONTINUE 
IPEDObI 

IF(MSaS.GE* JMAX) GO TO 3000 
DO 3ool MoltMSAS 

3001 LADD(M)eO 
60 TO 3005 

3000 DO 3oo2~M»l *MSAS 

IF (LARD (M) #EQ.o) GO TO 3005 

IN=0 

DO 30 OA MMiTl » M5A5 

3004 IF (LADD (MM) .EQ.LADO (M) ) IN«IN*T 
IF(IN.LT.JMAX) LADO (M) *0 

3002 CONTINUE 

3005 IF(IWPAP.EQ.I) GO TO 402 
DO 3006 Ms 1 t MS A S 

INbO 


no 3no7 mmbi,msas 

300^ T TFTtr&n R( M mtveqTCa bR(M)> Tn=i N *T 
IF ( IN.LT. JMAX-JINT) LADR(M)bO 
IF(LAnR(M) .LT.TSO.JINTM) ) 60 TO 300 a 
INbO 

no 2931 MMBl*MSAS 

2931 IF(LAnD(MM) .EQ.LADR(M) ♦ISO* J1^T)-IS{3*JINT 4 1) ) INbIN^I 
IF (IN.LT* JINT) LA0R(M)s0 
3006 CONTINUE 
60 TO *02 

600 IF ( Ijij.EO. JMAX) GO TO 13 q1 
IJLsjiNT*1 
I JUbJmAx 
GO TO "130 0 
1301 CONTINUE 

IF(ISIM.EQ.I) return 
IMAX ( jNaxVI ) BJMAX ( JMAX ) 

IS (3, jMaX*1)bIs>3, JMAX) 

IS(1, jMax*1)sIS(1 * JMAX) 

RETURN ' 

eno 


SUBROUTINE DERfV(MM) 

common /iq/ nume x p , zsa v ' ' 

COMMON /wr/ IWOAP 

COMMON /a/ X1,THMaX»TH(10) »R * Z (40, 1 0 ) ,P <40, 10 ) *PHf (40 * 1 0 > » 

y 0(40,10) f SI (40,10) ,H(40 f 10) fPwI (40*16) »RHOf40*l0 ) ,GAm( 40»10) 
COMMON /c/ IMAX do) »JMAX,IST aRt,KOUNTf*KOUNTP 
COMMON /D/ UW ( 4 0 ) * V W (4o), WW (40), XW (40), YW (40 ),THw (40) 

COMMON /M/ IS I M 
COMMON /I/ XJ 
COMMON/M/ IS ( 7, 10) 

COMMOn/KIT - SIO (40, 1 0 ) , PQ ( 40 , 1 0 ) , PHEO (40,10 ) , HO (40 ,10) * PHlQ ( 40 * 1 0 ) , 
100(4 0,10) »PHOQ( 40,10 ) ,GAmQ (40 , T 0 ) 

COMMON / Q/ XCOWL 

COMM ON / R / U,X cNTXCVX X ITjWTInTTT :~o w LV P CO W|_ ~ 

COMMON /w/ IS1MEX,IDUMMY,JINT,7 oUMMY(40) ,THWW(2) ,JD1*JD2 
COMMON /TB/ IMAXJ»IS1,IS2,ISL?,ISL2 
COMMON /ISW/ JCALC,ISWEEP,XINSd ( 10 ) ,x? " 

COMMON /ISW1/ jFR 

COMMON /JF/ JFlNAL 

COMMON /SY RI,kOOnT,KOUNTS,IcOwlT 

COMMON /PLY DE TH 

COMMON /V/ XJ1 

COMM0N/PS7ZR r47rr2) ,PRT407277oR r ( 40 , 2 ) ,mR (40,2 ) ♦ SIR (40 ,2) ,RHOR (40 ,2) 
1 ,PHlR (4p,2 ) ,PHfR(40»2) »ThR(2) ,THWR(40) 

COMMON/PSS/GAMRR(40) 

no lo Jsi , jmax 

JSHOCbO 

TF(J.sT.JCALC) GO TO 10 

1 F ( U . E 0 . JC A L C, A NO , I F R . E Q , 1 ) fiO TO 10 

jM«U»j 

JP*J+1 

IF (sJ.£Q. JCALC) JP*J 
IF (J,F°, 1 ) JM«jP 

IFdSlM.EO.l.ANO. J.EQ.JMax) JP^JM 

IMAX j *TMAX (J) 

DO 20 I »1 * IMaX j 
THJl.fHW(I) 

iF(UP.NETJTr) THJ1«TH(JP) 

IF (ISfM.EQ.l.AND.jP.EQ.JMAX) TwjloTH ( jMaX ) 

IF(J,eQ,JIN 1 ,ANO,I,LE,IOuMMY)Gn To 20 

nZ~*2<I»J)-Z(t,jM) 

nTH»TH( J)-TH( JM) 

OUmZbI • 

“IFTXJTTGT.O, )dUMZ^.5'*TZ( I , J)V 7 (I,JM) ■) 
pUMRej, 

IF(Xj,GT,0.) DUMRbR 
nSl»S 0 RTTOZ*Dz* ( 0 tH*DuMZ« 0 uMR )#* 2 ) 

IF( J,eQ, JINT.AND.I.GT.IOUMMY) r ,0 TO 90l 
DZbZ( T ,jp)-Z(I,J) 

"DTRBfH^l^TFTQ) 

PUMZbI, 

IF (X jj ,GT* 0, ) 0 UMZb, 5 «(Z(I, j) 4 . 7 ( 1 , JP) ) 

DS2*soRT ( bZ # DZ* (DTH*OUMZ*OUMP ) **2) 

IF(U # eO,JINT* 1 ) GO TO 900 

nl=DSj/DS2 

~ 02 ®DS 2 /DSl 


03*Dl mDZ 
6 0' T O "9 0 ? 

901 01*0, 

JP*J 
02 el , 

03*-!. 

IF(1.lT.IS< 3» J)-l) GO TO 909 

JSHOCal 

JPeJ+j 

I A* I S ( 1 « JP ) ♦ I - 1 S ( 1 ♦ J ) 

PAVb(7«I*J)-ZSAV*2(IA*JP) )/2, 

0S2*PaV*3. 142/2. 

Ol*DSl/DS2 

02*DS27DS1 ~~ *“ ' 

03*01-02 

909 CONTINUE 
60 TO 902 

900 01*1. 

O2*0, 

0 Tib1 ~ ' ' . - 

IF(I,lT.IS(3,J)-1) GO TO 910 

JSH0C*2 

iB*rsrivjH)vi-"fsriTv)) ~ 

PAV* (7 (I. J) +Z ( TB • JH)-ZSAV) /2. 

DSl*PAV*3, 142/2, 
nl*DSi7DS2 : 

02*DS?/DS1 

03*D1-D2 

91 0 CONTINUE 

902 CONTINUE 

Mb I 

— j 

TF(JShOc.EQ.I) MbIA 
!F(J5hOC,EG,2) NbIB 
OTHSbrI 4'T'HJ'l -03*TH ( J) -D2*TH( JM> 

IF(J.eG.I) DTHs*TH (2) 

IF (ISI M .EQ.l .AND, J.EO, JMAX) DTms*TH{ JmAx)-TH{ JMAx-1 ) 
IF(JShOc.EQ.I) DTHS«(Z(I*J)-ZSaV ) *3# l 42/2 .*01 ♦ (TH ( J ) «TH ( JM) ) *D2 
IF (J«?hOc.EQ.2) DThS® (TH ( JP) -TH f j) ) *Dl*Z ( I * J) *3. 142/2. »p2 
OZ S c Dl*Z (M,JP)-D3*7 (I,J).02#Z <N,JM) 

I F ( J S H 0 c , E Q . 1 ) D Z S * < Z "< I . j ) « Z ( I . j M ) ) *D 2 ♦ < Z ( M , j P ) - Z < I * J ) ♦ Z S A V ) * D 1 
IF (JShOc.EQ.2) DZS*<Z(X« J ) -Z ( I p t JM > *Z sAV ) *02* (Z < I • JP) -7 ( I » J) )*D1 
DP S 0 Dl*P (M f JP)-03*P ( I . J) ,02*P (N,JM) 

OH SsDl*H <M,JP)-D3«»H <ItjU02*H (N* JM) 

DO S«D1*Q (M* JP) -D3*Q <I*j)-o2*Q (N*JM) 

0PHES b D 1*PHE (M, JP) -D3*PHE ( I » J) .02*PHE f N, JM) 

DPHISbO^PHI (M.JP)«03*PHI (I»J)-02*PHr{N*JM) 

OPHOSbO 1 # RHO ( M » JP ) -D3*Rh 0 ( I • j) -o2*RHO ( N» JM) 

DGAMSb 01«GAM(M, JP)-03*GAM(I, J).D2«GAMfN, JM) 

OSI SbDi*SI (M» JP) -D3*SI ( I » J) -D2 # SI (N.JM) 

IF(J.fQ.I) DSI S*SI ( I « 2) 

IF(IsiM.EG. 1,AND, J.EO. JMAX) DSI S*-SI ( I ♦ JMAx-1 ) 

40 IF { I .EG. 1 ) GO TO 50 

IF(I.eO.IMAXJ) GO TO 50 
IF ( ICOWL.NE. 1 ) GO TO 400 

iFii.LT7rs(i*j)-MM.op. x«6t.iSfi«jn go to 400 



DP 7s0. 
nH 7=0. 
DO 7=0, 
J>SI 7e0, 
nPHE7=0, 
OPHlteO . 
DRHOZbO. 

' pgam?=07 
00 TO 6o 


400 CONTINUE 



if (i , pQ. isn • j> .or.i.fq. isn , jv 
IF( I, 2Q.IS(3» j) ,OR.I.EQ.lS(3f J) 
TP= I * 1 

-1) GO TO 5 0 
-1) GO TO 50 




IMbI-j 

DZl*Z(IP *J)-Z(I.J) 
n z2«z>i*j)"Z(im .j) 





nl*DZl/D72 

02BDZ2/DZ1 

03=D1-D2 





DTPD2 B Dl*DZ 

DP Z B (Dl*P (IP »J)-D3*P 

OH Z =(D1*H (IP »J)-p3*H 

(I»J)-D2*P 
( I * J) -D2*H 

(IM 

(IM 

* J) )/ 0lPD2 
• J) )/nlPD2 


no 7 ®(Dl#Q (IP fJ)-D3«Q (!*J)-D 2*0 ( IM ,J))/PlPD 2 

OPHEZ *(01*PHE(IP »J)-D3*PwE(I*J)-D2*PHr(IM *J))/piPD2 

OPHI? *(01*PHI(IP »J)-03*Pwl (I*J)-D2*PHI (IM * J) ) /plPD2 

0 RHO 7 «(D 1 *RH 0 (TP #J)-03*Rub(T*J)-D2*RHn(IM ,J) J/ 01 PD 2 

06AM7 *(Dl#GAM(IP • J) •D3*GftM ( I # J) -D2*GAM ( IM »J))/piPD2 

OSI Z =(01*SI (IP »J)-d3*St (I»J)-D2*SI (IM ♦J))/plPD2 

GO TO 60 
50 CONTINUE 
L®»1 

I Fl I ; EO .TM AX J)— 60” TO 100 
DO 4?1 M*1 *7 

IF( (M/2 ) »2.NE.M.AN0.I.EQ.lS( M t;j )- l) G O TO loo 
IF ( ( M/2) #2*E0. M. AND* I .EQ. I S ( M » .0 ) GO f6 100 
421 CONTINUE 

L a l 

100 IL=I*L 
I2L®I *2#L 

nZ=Z ( i * J)«Z(IL tj) 

nZL=7(lL tJ)-Z(I?L *J) 

IF(Aps(DZL) .GT.l.E-10) GO TO 5*00 

PEL ® 0 , 

GO TO 5001 

5000 0EL«D7/DZL 

5001 pelle*del»del 

DELQ*1 .*DEL 
DELL=pELO*DELQ 


PELE«s(l.*2»*DEL> 






DP 

PH 

pQ 

Z=(DELLE*P 

Z=(DELLE*H 

Zb(DE1-LE*Q 

(I2L 

(I2L 

(I2L 

*J)-0ElL«P 
t J) »DELLiH 
* J)-DELL»Q 

(IL 

(IL 

(IL 

»J> *DELE*P 
* J) ♦dfle^h 
*u>*dele*Q 

(If J) ) /DZ/DELO 
(I*J) ) /Dz/DELO 
(I* J) ) /DZ/DELQ 


OPHEZs (DELLE«PHE (I2L * J> -DELL»PHE < IL * J) *DFLE*PHE ( I ♦ J) > /DZ/DELQ 
PPHIz, (OELLEoPHl { I2L , J) -DELUPHI ( IL , J) ♦DELE*PHI ( I, J) ) /Dz/DELO 
pRHOZg (QEl.>-E»RH0(I 2 L » J) -PELL»RHQ ( IL »J >*DpLE«RhO ( J * j) ) /DZ/DELO 
0GAMZc(DELLE*GAM(l2L *J)-DElL*GAM(IL * J> *DELE*GaM(i* j) > /dz/delq 



PST ( PELLETS f (?2L »J)-DElL»SI (IL »J)»DELE»Si ( IJ J> > /DZ/DElq 


60 

CONTINUE 

P 0 ( 7 *j)s(DP S-DP Z 
H 0(7 *J)e(DH S-DH Z 

*dZs)/dths 
*DZS) /dths 


0 0 ( 7 * J) B (DQ S-DQ Z 
SI G(I»U)s(DSI S-DSI Z 
PHEO (I *J) * (DPHeS-DPHEZ 

*DZs J /dths 

*DZs)/DTHS 

*dZsj /dths 


PHIQ ( 7 * J) b (DPHTS-dPHIZ 

RHOQ ( 7 * J) b ( DRHDS-DRHOZ 
gamq ( 7 * J) b (DGAmS-DGAMZ 

*dZ«5)/dTHS 

*dZS)/DTHS 

*DZS)/DTHS 

20 

10 

CONTINUE 

continue 

TFdWpAp.EO.DGO TO 955 



iFdCoWL.EQ.l.oR.lCOWLT. 

J2bJInT 

J3« JTmT+i 

EQ.O) GO TO 955 

J4bJIkjT*2 
IDUsIdUMMY*1 
A1bZsaV-Z (IDU* J2) 

T2 b Th ( J4)-Th ( JD 
A 1 A2 b A 1/A2 
A2A1 bA2/A1 

A 1 PA 2s A 1 * A2 


A 1? B AJ AJ-A2A1 

UTbQ(jDU.J2)*C0S(PHE(IDU»J2) ) 

~ V T e ^QTI P1JTJ2 r* s'IW - (PH E~( 1 0 LTTJ2T) - -- 

WTbQ(IDu, J2)*TAN(SI (IDU* J2) ) 

OTbSPrT (UT # UT+WT*WT) 

PHET*aTan('WT/U T ) 

SITbAtAN(VT/OT) 

P Qfi*J3 )B<P (1,J4)*A1A2-P d*j3)*Al2-P (IDU,J2)*A2A1)/A1PA2 
H Q ( 1 » J3)a(H (T7U4T#AlA2»H < 1 , J3) #AT2-H ( IW, jZy«A2'A'l ) /A IP A 2 
0 Q ( i t J3) * (Q (1. J4)*A1 a 2-Q d*J3>*Al2-Q T ' *A2Al)/AlPA2 

SI Q U * J3) ■ (SI (1, J4)*A1A2-SI d*J3)*Al2-SI T *A2A1)/A1PA2 

PHEO( l * J3)c(PHE ( 1 , J4)*A1 A2-PHE > ] *J3) * A 1 2-PHET *A2A 1 ) /A 1 PA? 

PHI0(1 *J3)a(PHI (If J4)«A1 a 2-PHI d * j3> * A 12-PHI ( IOU, J2 ) *a 2A1 ) /A1PA2 
RHOQ(l*J3)«(RHO(l f J4)*AlA2-RH0n*J3)*Al2-RH0(lDU,j2)*A2Al)/AlPA2 

“ fi~AMQ~( i * J3 ) = (GAM ( 1 « J4) *'A 1A2-GAM ( 7 » J3)*A 1 2 -GAM ( I DU . J2 ) * a 2 A 1 > /A I PA 2 

JMAXJ2*IMAX ( J2-1 ) 

DO 7979 Ial*lMAXJ2 

2 R < T * I ) =Z ( I . J2-1 ) _ 

p R ( 7 # 1 ) «P (I.J2-1) 

O R ( f f 1 ) bQ ( I * J2-1 ) 

H R ( f * 1 ) *H (I.J2-1) 

SI R ( I * 1 ) *SI (Itj2-1) 

PHIR(I*1)-bPHI ( I v j2.1) 

PHER ( f * I ) *PHE (I.J2-1) 

RHOR ( i * 1 ) ®RhO (I*j2-1) 

7979 CONTimUE 

do 78 76 T**i » I dummy 

DO 3535 I J*-l * IMAX j2 
GAMRP(IJ)sTHWR(IJ) 

3535 THWR (7 J) sGAM ( 7 J* J2-1 ) 

CALL T8LDUM ( Z (I«J2) » Pi *S 1 1 » Hi , PHI 1 * Ql * PHE1 *RH01 , GAMl f 
1 J2) *2) 

DO 3536 IJ s 1*ImAXJ2 


1 *IMAX ( 



3536 THWR(xJ).GAMRR(IJ) 

CALL T Bi_ D UM (Z (I t j2) »P2tSl2»H2.PHl2f Q?» PHE2.RH02,GAM2 f ?VXMAX< 

1J2) *2) 

Di eTH (J2 V-TH( J?-i ) 
n2*TMpT2) -tR (J2) 

D 1 D2rD 1 /D2 
0201er»2/Dl 
012*01D2-D2D1 
01PD2 bDWD2 

P Q(I#J2)s(Dir)2*P 2-D12*P < f * J2 ) -D2Dl»P l)/DlPD2 

H Q ( I * J2) ® (Dl02*H 2-0l2*H (TfJ2)-D2Dl*H 1 ) /D1PD2 

0 0 ( j * J2) * (Dln2*0 2-012*0 ( t • J2> -D2D1*Q D/D1PD2 

SI 0(T» J2>b(D 1D2*SI 2-D12*SI < ? , J2) «D2Dl#Sl 1)/01PD2 

PHI 0 rTTJ2) e (DT02*PRI 2-0 1 2*PHI ( tTJ 2 ) -0?D 1 *PH 1 1 ) /D 1 PD? 
PHEQ(I*J2)b(D 102*PHE2-D12*PHE (T* J2)-D2D1*PHE1 )/01PD2 
RHOQ ( I * J2> * (D102*PH02-012*RH0 ( T # J2 ) -0201 *RH01 ) /01PD2 
GAM 0 ( fTD 2 ) ^ (BT02 * GA M 2 -D T2 * G AM~( T"*" J2 ) -D2D 1 *GAM \ ) /D 1 P02 
7878 CONTINUE 
955 CONTINUE 
RETURN 
END 




SUBROUTINE CSUPF(K»JMW) 

C OM mon _ /F N 7~F PNUlfTlOT* F MN ( 4 p ,7 0 > 

COMMON /ALLR2/ PON (40 » 1 0 ) *HON (40 « 1 0 ) • oQN (40 « 1 0 > * SION ( 40 * 1 0 ) • 

1PHEQN <*0* 10) *Ph IQN (40* 10) * RHOQm (40 * 1 0 ) *GAMQN (40 * 1 0 ) 

COMMON / A V/ AA~V * B A V 

COMMON /ALLRl/ AN(40*10) *TN(40*10 ) *GAmN(A 0*10) *XPLAMN(40»l0) * 

1 XML AMN (40*10) 

COM MOTTVIV Y^IvYTkCO R R 71 A V 

COMMON /A/ X1,THMAX*TH(1o) »R *2(40*10) *P(40»l0) »PHp(40*10) t 

1 0(4 0,10) * SI (40*10) *H (40,10 ) *Puf (40*lo) *RHO<40*l0 ) »GAm(40*10> 

COMMON /B/ PN < 40 « 1 0 ) * PH IN (40 * 1 0 ) » RHON (40 * 1 0 ) • HN { 40 » 1 0 ) *ZN(40*10) 
COMMON /C/ IMAv (1 0) * JMAX, ISTART*KOUNTF*KOUNTP 
COMMON /»/ I SI M 
COMMON /I/ XJ 

COMMON /J/ QN(40.10) *PHEN(40*lO) *SINN(40*10) *XPLAM(40 f 10) * 

1 XMLAM (40* 10) *FP(40) *FM(40) *A(4n v lO) 

COMMON /K/ RN*nELR 

COMMON /L/ ALPwAN(7*10) ♦ ALPHA <7* 1 0 ) »BpTaN(7*10) *BETa (7*10) 
COMMON/M/ IS ( 7« 1 0 ) 

COMMOn/N/ SIO (40*10) * PQ (40 * 1 0 ) « PHE Q ( 4n *10) * HO ( 4 0 * 1 0 i »PHlQ(40*l0) » 
100(40*10) *RHOQ(40.10) *GAMO(40*T0) 

COMMON /O/ ALP ( 7* 1 0 ) * ALPN < T * 1 0\ 

COM M0TT7 U7 — E R Z Y2 
COMMON /V/ XJ1 

COMMON /w/ ISImEx, IO uMMy, JlNT* 70 UMMy ( aO) *TH wW (2) ♦ JDl * JD2 
00 MMON~/5A7~XU7S ■ 

DIMENSION PIS(?) »PHEIS(2) *RhoZ<;(2) *P2?(2) *GaMZS( 2) *ODOS(2) *QDS(2) * 
1SIDS<?) *SIDQS(2) »TlS(2 ) *vCS(2) ,HDs<2) *HD0S(?> *PHIZS<2) 

1 nO i(T~U«i*JMw 

IF(J.sT.JINT) X J 1 a 0 • 

I*IS(K*J) 

KTLB1 - — 

A93"l. 

B93o0. 

IF (BAv«GT*0« ) A 9 3 fi • 5 
IF (BAV.GT.O. ) B93».5 
IF(Bav*EO*0.) rETaN (K. J) bBETa (K * J) 

BTbBEtAN (K* J) 

IF(J.nE.JMAX*d go to 893 

XTop 

CALL SWALL(R*Z(I* JMW) *XT * YT , GX I.GZ 1 ) 

GG«AtaN(GX1) 

700T*7 ( J * JMW) ♦T AN (BETA (K, JM«) ) #DELR/C 0 S (GG) /COS (GG) 

XTbRm 

CALL SWALL(RN*7D0T*XT*YDU*GX,G7) 

XA«GX*SlN(BETA(K* JMW) ) 

RATO= (Th( JMW) -YDij) / (TH( jmax) -you) 

Tl*IS (K* j) * 2 
I2«IS(K,J) + 1 
DO 89p 11=11*1? 

P 0(lI*J)*P Q(II*JMAX) 

H 0(lI*j) a H 0(II*JMAX) 

0 0 ( 1 1 * J) B Q 0 ( 11 * UMAX ) 

si Q ( I I • j) s Sl 0 (II*JMAX) 

PHEO ( 1 1 » J) a PHEO ( 1 1 • JMAX) 

PHXQdlf J) B PHI0(II* JMAX) 


RHOQ <ll * J) bRHOQ (II • JMAX) 

ga mo ( r i ♦ j > *g“amo < r i vjma x > 

892 CONTINUE 

893 CONTINUE 

25 25~ZAsZ7f- 1 .J) 

C 2A«(Z(I-2»J)*Z(I-ltJ) )/2, 

25 I Tel 

5 pATBTZ^-Z { I^27 J) )y (Z (I-I7J ) -? ( t-27J)T“ ~~ 

ALAMbxPLAM(I-2, J)*RAT#(XPLAM(I-1 » J) -XpLAM ( I-2« J) ) 
DUMPbA93*ALAM»893#XPLAMN (1*1 , J) 

Z AT« ZfTTT » 1 » J) -DUMPED EUR 

FRbAPs( (ZAT-ZA) / (Z ( 1-1 • J)-Z { I-?, J) ) ) 

IF(ER.LT.ERZZZ)G0 TO 6 

"lT«lT?l ' 

7A«ZAT 

TF(IT.LE.10)GO to 5 
wRITE(6,?00) 

200 FORMAT <• ERROR IN A POINT ITERATION I N CSURp*-) 

CALL PNCH 

6MbI*j 

BLAMbxMLAM(I-2, J)+RAT#(XMLAM(I-1*J)»XmLAM(I*2,J) ) 

ZI«ZA 

PAbP(I-2*J) ♦RAT*7P(I-1»J) -P(I-?*J> ) 

PI *Pa 

OAbQ ( T- 2, J) ♦RAy* (0(1-1* J)-Q(I«?» J) ) 

OIb'QA 

HA«H(l-2f J)+RAT«(H(I-1* J)-H(I-P.J) ) 

HIbHa 

RHAbRIhO ( 1-2 , J ) ♦ R AT* < RHO ( I - 1 , J > *RHO ( I -? * J ) ) 
rHIbRhA 

SIA«SI (I-2»J)*RAT*(SI <I-1*J)-ST(I-2#J) > 

SI I*SjA 

PHIAbpHI ( 1-2* J) ♦R A T« (PHI { 1-1 « J) -PH I ( 1-2. J) j 
PHIIbPHIA 

PHEAapHE ( 1-2* J) *RAT*(PHE (1-1 » Jv-PHE ( 1-2* J) ) 

RQ2«QN ( M , J ) *QN ( M , j ) *R hON < M « J ) 

PHEIbPHEA 

TABFTT^ATPfllAtHA) 

GAMAbfGAM (TA tPAf PHIA) 

AAsSORT (GAMA*PA/RHA> 

P0l«P0Tl-2* J) +RAT* (PQ(I-l*J)-PO( 1-2* J) ) 

QQIbQQ ( I - 2 * J) ♦RAT*(QO(I-l * J > -QO ( 1-2 * J ) ) 

HQI«HQ(I-2* J) ♦RAT*(HQ(I-]t j)-HO(I-2t J) ) 

PHOI*RHOO ( 1-2* J) +RAT* (RHOQ ( 1-1 . j)-RH0O < 1-2# J) T 
PHEOIbPHEQ(I-2,J) *RAT* (PhEQ (I- i, J)-PH eQ (1-2, J) ) 

PHIQIbPhIQ ( 1-2, J) »RAT» (PhIQ ( I— T* Jl -PHlQ ( 1-2, J ) ) 

SIOI*slQ(I-2*Ji*RAT*<SIQ(I-l*J r )-SlQ<I-2*J) ) 

CALL F (RHA,QA,P,ZAf PHEA, ALAM f Bi AM f SlA,AA»SlOl,PQl , PHEoI , FP A » FMA) 

ai«fpa/rha/qa/oa 

AllrtTv*Al*BAV*FPN(M* J)/RQ2 

A2bS0RT( (QA/AA) **2-1 # ) /RHA/QA/OA 

A2bA93»A2»B93«5QRT ( (QN ( 1-1 , J) /AN ( 1-1 * J) ) »»2 - 1 . ) /RQ 2_ 

ITbI 

7BbZ(T»J) 

C ZB»-<Z(I*l»J>*Z(ItJ)>/2« 

8~RAT«(ZB-Z(If J) )/(Z(I*l* J)-Z(I*J) ) 



PLAMsyMLAM<I»j)*PAT*(XMLAM(T*r.j)-XMLAM(I*jS ) 

P U M P s A 9 3 *B LAM ♦ p 9 3 * X M LAM N 1 1 7J) 

7ATbZ N ( I « J) -DUmP*DELR 
FR=Ap$( (ZB-ZAT)/(Z(I«1*J)-Z(l»:i) ) ) 

IFTER.LT7ERZZzTGO“T0 9 “ 

its it* l 
7BbZat 

I F ( i TTtETl O ) G O Tcr-Q- “ 

WRITE (6*201 ) 

20 l format (* ERROR IN B POINT ITERATION In CSURF*) 

CALL PNCH 

9 PB«P ( I » J) ♦RAT*(P(I*1*J)-P(I*J ) ) 

P02**0n ( I ♦ J) *QN { I * J) *RHON ( I » J) 

AL AM ey RL AMTTT^y* PA T*TxP LAM( I*T,T) - X P L A M ( I , JV) 

0B*0 ( I # J) *RAT* <Q ( 1*1 * J) -Q < I * J) j 
J) ♦RAT*(H(I*1* J)-h(I* J h 
RHRsRhO“( | 9 J) *RAT # ( RHO ( I* 1 * J) .Rub ( I » J) ) 

SIB=SI ( J»J) *Rat*(SI c I ♦! * j) -si <T.J) ) 

PHIRepHI < I * J ) +RATMPHI <X«1«J)-PHI (I«J) ) 

"PHEBbpHETI * J) ♦dAT*TPME ( I *r*J) -phE (I ♦ J) ) " 

TBbFT (PR*PHIB#HB) 

GAMBbf6am(TB»PB*PHIB) 

ABbSQrT (gaMb*pb/phB) 

PQB*P0(I*J) ♦RAT*(PO(I*l tj)-PO(r« J> > 

OQBoOO ( I , J) *RAT* (QO ( I* 1 » J) -QO ( T , J) ) 

MQBBHoLirjiiRAT^iHQTiTiT^r-HorftTrj ) 

RHORBRHOOd* J) +RaT<MRH0Q(I + 1*J)-Rh0Q<T*J> ) 

SlQBesIO ( I » J) ♦PAt*(SI0(U1, J)-CI0(I*J) ) 

DHEOp sPHE Q ( I • J) ♦ R aT* < pheo ( i * 1 * J ) -PHE Q < 1 1 J ) ) 

PHIOPbPHIQ(I, J) ♦RaT*(PHIQ<IM* j)-PHIQ(I*J) ) 

CALL F(PHB,0B,R,7B.PHEB,ALAM,BrAM t SlB,AB,Sl0B f PQB,PHE0B,FPB,FMB) 
BIbFnB/RHB/QB/OB 
B1bAAV*B1*BAV*fMN(I* J) /Rq2 
R2sSqrT ( (QB/AB) **2-1 . ) /RHB/OB/OR 
AC b R93*S0RT( (Qn(I» J)/AN(I*J) )*#p-i7)>rQ2" 

P2sA 93*B2*AC 
l 3 7D«?(M*J) 

C “ 13 7 D« ( Zl *7 ( M »“J ) ) 72, ' 

f T*1 

18 BATb ( zD-Z (M»J) ) / (Zl-Z (M* J) ) 

DLAMbtAN (PHE (M»J) ) *RaT* (TAN (PH rl ) -TAN (PHE (M» J> ) ) 

DUMP eA93*DLAM*B93*TAN(PHEN(Mvi) > 

7ATb7n (M, J) -DUmP#DELR 
E R« ABST { Z aT - Z o>/(ZI • ZTM* j) ) ) 

IF(ER.LT.ERZZZ)60 TO 19 
ITbIT*1 

IF(I'T.GT,10)CALL ERROR ( 18 > 

70 b ZaT 
GO TO lg 
f9 CONTINUE 

PD*P (M* J) *RAT* (PI-P (M* J) ) 

OD«0(M» J)*RAT*(QI-Q(M* J) ) 

HDbH ( M * J V +RA T* ( HT -H (M rJ) ) 

RHD b RhO(M» J) ♦RaT*(RHI-RHO(M» j) i 
SID B 5i (M* j)*RaT*(SII-SI (M»J) ) 

PHii)*pHnwrj)^p^T«(PHTT-pHrrMTjr) 



PHEDbpHE (M» J) ♦PAT* (PHEI-PHE (Mi .1) ) 

TO » F TfPDTP HI D, HO) 
fiAMDsF6AM(T0*PO»PHl0) 

ADbSorT (GAMD»PO/PHO) 

POOapo ( M *'J ) ♦RAT*'('PQ I -PQ ( M* j ) f 
H00*HO ( M ♦ J ) ♦RAT*(HQI-HQ(Mt J) ) 

000*00 (M* J) *RAT* <QQI-QQ<M» J) ) 
PH00*RH00^Tg)^RAT*(RHQI-RH00{M7JV) ~ 
SIDOs^IO (M* J) * pAT*{SIQI-SIO(M* j) > 
PHIDO*PHlO<M* J) *RAT*(PHIQI-P hIO (M* J) ) 
PREDOcPheOTM. J ) ♦ RAT* ( PH EOT- PH E o ( M » j ) ) 
VDeQn*TAN (SID) 

TleDEl R/COS (PHE01 

IF(X J 1TE 071. TT 1 = T 17 Z D 

IF(Xj.EQ.1.)T1sTi/R 
T2bP 0O/RHD/00 
T 3 a T a N (S TO) *00 0 
T4=Qo*STDQ/COS (STD >**2 
T5bQo*COS (PHED) *XJ 
1 *00* Sl'N ( PHED ) * X J 1 

VC*VD-Tl* (t2+TAN(SlD)* (T3+T4+T*) >*AAV 
SPHENbSIN(PHEN(M # j) ) 

TSlNsjAN ( SINN ( M * J ) ) 

CSINs^OS (SINN (M» J) ) 

CPHEWatCOS (PHEN (M» J) ) 

“TTl^oftR/CPHEN — — — 

IFfXjx.GT.O.) TT1*TT1/ZN(M, J) 

IF ( Xj. GT.Q.) TTlcTTl/RN 

T22apoN (M» J) /RwON (M* J) /ON (M« j) 
T33 cTsIN*QQN{M, J) 

T4 4*QN (Mf J)»SIQN (M»J) /CSlN 

T55*0m (M» J) * <CPHEN*XJ*SPhEN*X J1 ) 
DVCbTTU(T22^TsIN*(T33*T44^T55V) # BAV 

VCb VC-DVC 

TllBOELR*TAN(STNN(Mt J) ) /COS (PHPN (M* J) ) 
IF (Xjl .GT.O. ) Tl laTl 1 /ZN (M* J ) 
IF(Xj.GT, 0.) TlUTlI/RN 
T1 bTi#Tan(S'ID) 

T1«T1*A93+T11*b93 

RH0ZbRHD-RHDQ*t1 


PZsPo-POQ*Tl 

HZ*H 0 -HD 0 *T 1 

PHIZepHID-PHID0*T1 



TZBFT(PZtPHIZ.HZ) 

GAMZbpGAM(TZ»PZ*PHIZ) 

T6b1 



TF(M,eQ,I) I6b? 

PI S(l6)*PI 
PHE 1 5 ( 1 6) *PHEI 



RHOZ5 ( 16 ) bRHOZ 
PZ S(I6)bPZ 
GAMZS(I6)*GAMZ 



ODO S ( I 6) *QDQ 
00 $(Ifc)*QD 
SIO S(I6)*SID 




SID 0 S(I 6 )=SIDQ 



T 1 S(IM*T1 

VC S ( 1 6) **VC ” 

HD S(l6)aHD 
HOG S(l6)sHDQ 
PH I Z S( 1 6 ) =PH I Z 
TF<I6.EQ.2> GO TO 1690 
35 Mai 
7l«Zp 
PIbPP 
HlsHp 
OlaQP 
PHIbRhB 
PHIIepHlR 
GAMIbgAMB 
PHFlepHEB 
SII=SIB 
PQTbPQB 
OQI*OOB 
HQIbHoB 
PHOIbRHQR 
SIQIbsIOP 
PHEQIsPHEQB 
PHIOIbPhIQB 
GO TO 13 
1690 CONTINUE 
~ rTT _ 
msT«! 

Nal 

- 

PN (M, j) ** ( a2*Pa*BP*PB* ( AUB1 ) *DrLR*PHE a-PHEB) / { A2*B2 ) 

16 PN(N, j)*PN(M,Jj 

PHEN(Nf^JcPHEIS(2T^Bl«D£LP"B2*TPrsr2^>^.PN(N*jn 

PHEN<M*J)«PHEIs a) ♦Al*DELR-A?* fPN(M. J)-PIS(l) ) 

1600 PH0N(m«J)bRH0zS(I6)*(PN(M*J)/P7S<I6) ) #* ( 1 ,/GAMZS ( 16 ) ) 

T2 a (GoQS~( I6“) *Q0S (I6)*TAN (SIDS < T*) ) *SloQS ( I ft) ) /COS (SID? (Ift ) ) 
VVZ*QdS(I6>/C0S<SIDS<I6> >-T2*TTs(i6> 

VVCbWZ*VVZ*2,*GAMZS(I6)/(GAMZ«: (I6>-1 . ) * (PZS < 16) /RHOZS ( 16) 
1»PN (m*J) /RHOn (m* j) ) 

0N(M*j)bS0RT(VVC-VCS(I6)*VCS (I**) ) 

SINN (M» J) ®ATAN (VCS ( 16) /QN (M* J) ') 

HN (M» j) bHDS (16) ♦ (VVZ*VVZ-VVC> /p.-HDQS ’f 16) *Ti S (16) 
PHIN(m*J)sPHIZg(I6) 

IF ( (PHlN(MtJ) , lT.O.) .AND, (PH lNfM, J) ,GT .-,01) ) PHlN(M, Ji«0. 
TN(M.j)bFTTPN(M*J) *PhIN(M*J) tHN (M.J) ) 

GAMN(m*J)sFGAM(TN(M* J) *PN(M* j) .PHIN(M.J) ) 

A N (M» j ) bSQRT (G AMN(M » J) »PN(M t J) /PHQN < M, J) ) 

CALL XLAM(QN(M. J) «AN(Mi J) »PHEN(M* J> *XpLaMN(m, J) #XMLAMn(M» J) > 
IF ( 16 a EO. 2) GO TO 1601 
I6s2 
Mb I 

GO TO 1600 

1601 CONTINUE 

Msl-J 
I6b1 

lF(J,E Q .i) BETaN(K*J)bPHeN(M, J) 

IF ( j . eQT^NAXTAND . I SIM , E Q , 1 ) BE f aNTKTJT^PH EN ( M »J ) 



TKel 

26 '7N~nTj> *Z~(I *J) ♦ (TAN (BETA (K» jy)*TAN (8 EtAN (K.!)) ) ) *OELR/?. 

7N(I-i * J) ®ZN ( I , J) 

IF( J.nE, JMAX* l> GO TO 4392 

PDU= (rETaN (K* J) -RaTC # 8ETaN (K# ) / ( 1 *-RaTc) 
AOUbATAN(GX*SIM(SDU) ) 

ALPHAM (K* J) SAOU^RATC* (ALPHAN (K. JMAX) -aDU) 

GO TO “4483 — 

4392 CONTINUE 

IFT J,nE.JINT.AND,J.NE. JINTmI CALL PSnLV ( J* TALP* I ) 

A'tTPH'AKi (Kt *ATaN~(TALP*COS (BET Am (K* J) ) ) 

4403 CONTINUE 

PPHEbRETAN (K f J) -PHEN (M* J) 

pRPlsT ANfSi NN < Mrj) r*S IN ( ALPHAN ( kTJT) * C OS { ALPwAN (K » J) ) *c;IN (BPHE ) 
IF(ABS<ERP) .LT.l.E-10) go TO Uo2 

T K bI K ♦ 1 

! F ( I KVGT710 JGOTOIOO “ 

IF(lK.GT.2)Go TO 28 
FleERP 

BT1bBeTAN'(K7J) 

BETAN(K, J)*l,Ol*BETAN(Kt J)4l.E-B 
GO TO 26 

1680 WRITE (6, 1681) 

1601 P0RMat<* ERROR IN PRESSURE ITEpaTION IN CSURF*) 

CALL PNCH 

100 WRITE (6*202) 

202 FORMAT <* ERROR IN BETA ITERATInN IN CSURF») 

CALL PNCH 

28 nUM2epTl-El*(BFTAN(K*J)-BTl)/(FRP-El) 

FIbERP 

BTibBeTAN(K* J) 

BETAN (K* J) «DUM2 
GO TO 26 

1602 PETESfgPHEN(N > J),ASIN(TAN(SlNNfN t J) )» tAN( AL PH AN ( K « J ) ) ) 

FRS=RfTaN (K* J) -BETEST 

IF(Abs<ERS) .LT. l.E-10) GO TO 1*03 
ITTbItT+i 

IF ( ITT*GT# 15) GO TO 1680 
IF ( I TT »GT»2) GO TO 22 

ERIbERS 

PH1bPn(M,J) 

P N(M*J)b 1,2 «p N ( M f J) 

GO TO 16 

22 DUMlopHl-ERl*(P N(M* J)-PH1) /(PRS-ERI) 

ERIbERS 

PHIbP N(MtJ) 

p N(m*J)sOUM1 
GO TO 16 

160 3 IF(J,nE.JINT.AND.J,NE.JINT*1) aLPN (K , J) sATAN (TALP) 

IF ( J. eQTJMAX*! ) ALPN <K » J) BATAN ( TAN(ALPhAN(K*J) ) /COS (BETAN (K.J) ) ) 

1010 7N(I' s |)bZ(I*J) + (TAN( BETA (K« J) ) *T AN (BEtAN (K* J) ) )*DELR/2. 

?N ( I»1 1 J) »ZN ( I ♦ J ) 

ET’bABS ( 1 .-BT/BETaN (K« J) ) 

IF(IVY.EQ.O.OR,ET.LT,1,E-05) Gn TO 10 
KILbKiL+1 

IF (Kl L«GT • 1 0 ) GO TO 1493 



A93b,s 

PTsBETAN (K* J) 

GO To 2525 
1493 WRITE (6 1 1393") 

1393 FORMAT <* AVERAGING PROCESS DOES NOT CONVERGE IN cSURF *) 
STOP 

rO“rONTTNOE “ ' 

XJ1«XJ1S 

RETURN 

FNO 




SUBROUTINE HSHoCK(K*JL#JM»IFlG'i 
COMMON /FN/ FPN <40* 10 )*FMN (40 MO) 

COMMON /AV/ AAVfBAV 

COMMON /ALLR1/ TN(40*10) ♦TN(40.10) *QAmN( 40*10) tXPLAMN(40*10) * 
1 vMLAMm(40*10) 

COMMON /J/ QN(40»10) *PHEN(40*ln) *SlNN(4o*lo) »XPLAM(40»10) * 
1XMLAM(40.10) »FP(40) #FM(40) *A(4rt,l0> 

C0MM0N7IVY/"I vY, KCORRVIA V ~ 

COMMON /A/ XltTHMAX*TH(10) *P *Z <40 ♦ 1 0 ) *P (40 • 1 0 > * PH* (40 # 1 0 > * 

1 0(40flO) tS| (40*10) *H<40*10 ) *PmI ( 40 * 10 ) #RHO(40*l0 ) *GAm( 40*10) 
COMMON /B/~PN<40»10) f PHI N ( 40 1 1 r\) *RHON (40 # 1 0) *HN(40»10) ,ZN(40»10) 
COMMON /C/ IMAX <10) ♦ JMAX, ISTART*KOUNTp»KOUNTP 
COMMON /E'' UWN(40) tVWN(40) *WWN<40) *XWm(40) *YWN(40) »THWN<40) 
common /I/XJ 
COMMON /K/ RNtnELR 

COMMON /L/ ALPhAN ( 7* 1 0 ) t ALPHA d*lO) *B eTAN ( 7* 1 0 ) »BETA (7*10) 
COMMON/M/ I S"("7 , l (j j 

COMMON/N/ SIQ(4o*io) *PQ<40*10) «PHEQ<46*10) *mQ( 40*10) *PHlQ<40*10) • 
lOO (40 * 1 0 ) »RhOQ (40*10) ♦ G AmQ (40*10) 

COMMON~7S>~RI7kOUnT7KOUNTS,“IcOu/LT 

COMMON /U/ ERZZZ 
COMMON /V/ XJ1 

COMMON /W/ rSlMEx*rDUMMY f JINT»7 DUMMy( 40) *THww(2) * JDl * JD2 
COMMON /SA/ XJ7S 
1 00 lo J*JL*JM 

I F (7J . 6 T . J I NT ) x J ls“07 ' 

I«lS(KtJ) 

IF(JM,Ne.JMaX*T.OR.IFLG.EQ. 1) GO TO 3985 
VTaP 

CALL SMALL<R.Z(I*J).XT*VT»GX,G7) 

?D OT g Z<I«J)*TAN<BETA(K»J) ) »PELP/ (pOS ( aTaN (Q x ) ) ) »» 2 

xT*Rn 

CALL SWALL<RN*ZD0T*XT*Y0U*GX f G7) 

39P5 CONTINUE 
ITIsI 
KIL«1 
A93* 1 . 

B93=0. ' 

IF(BAv#Gt.0 # ) a93s«5 
IP(Bav*GT.O,) p93a.5 

TF (BAV*EO.O..AND.JL*NE.JMAX*i ) bETAN (k*J)sBETA (K* J) 

BETs0eTaN(K, J) 

IF ( J.eQ. JMAX*1,AND*IFLG,E0.1) BET*BETaN(K* JM) 

RTaBET 
4 I Te l 

IF(J.nE, JMAX* 1,OR,IFLG.EQ.O) Go TO 7999 

PXTSaTrHU)M)-YnU)/<TH(JMAX)-YO!J) ' ' “ 

BDU*(pET-RATS*bETaN<K.JMaX) )/(T.-RATS) 

AOUbatAN(GX*SIn(BOU) ) 

ALPHAN <K*J) aADU*RATS* (ALPHAN (K;jMA"X)-aDU) 

7999 CONTINUE 

CAcCOS<ALPHAN(K*J) ) 

SAsSlN < ALPHAN (K* J) ) 

VT*QN(It J)*COS(BET-PHEN<I * J) ) 

VL g QN(I» J) # (CA»TAN(SINN(I»J) ) -9 A»SIN ( b ET-PHFN ( I » J) ) ) 

UlaON(I.J) # (SA*TAN<SINN(I»J) ) ♦C.A*SIN < bET-PHEN ( I ♦ J ) ) ) 



U1sABs<U1 ) 

XM$bRhOn7I73T*OT 

TNsFTfPNflt J) *PHIN(I*J> *HN(I»J) ) 
GNeFGflM<YN*PN<I» J) *PHIN(lt J) ) 

GPle (gNUl . ) 

GMlsGw-1 . 

XMl*Ui # Ul/6N/PM(I, J)#RHON<I# J) 
U2 b0i*Tgm1'*XMU2.)/6P1/Xm1 

5 RH?P«xMS/U2 

P2HbXmS# (U1-U2) ♦PN ( I * J) 

V2sVT*#2+VL**2 

V1bV? 4 U1#*2 

V2bV2 4 U2**2 

H2sHKl ( I * J) ♦ ( vl-V2> /2. 

RH?eRHE0(H2tP2HtPHlN(I,J) ) 

pRe ( R h2-RH2P) /RHO (I*J) 

IF(ARsTER) .LT. l .2-4)66 TO 7 
ITsIT*1 

IF (IT.GT.IO)GO TO 100 

IF(Tf # GY.2>G0 TO 6 

ER2SER 

U22 s l*2 

h2s*qp # II? 

GO TO 5 

100 WRITp (6* 200 ) 

200 fORM a t ERPOR I'M HUGONIOT L 00 pHTIsTH SmOcK * ) 
CALL pNCH 

6 DUMsu?2-ER2* (U2-U22) / (ER-ER2) 

EP2*ER 

ll22*U2 
u2bOum 
e - 0 - T0 5 

7 CONTINUE 
CRsCOS(RET) 

GBbSIn(RET) 

IF( (K/2)*2.E0.K)U2»-U2 

0N2Pe.U2*CA 4 \/L*SA 

TTV * V T *C B»QN2P*SB " 

vv«vl*ca*u2*sa 

WVsVT#SB 4 QN2P*cB 

PHE2iATAN(»V/Uv) 

Q2bS0rT (UV*UV+WV*WV) 

V2=VV 

S 1 2* A T A N ( V2 / Q2 ) 

L B 1 

IF < C K/2)* 2 »NE.K) L c **l 

M«IS (K* J) *L 

IF( iFLGtpQ. 1 ) r,0 TO Aft 

MbM 4 L 

2 A b;( 2 ( M *J ) ♦! ( N • J ) j /2* 

TK*1 

AO RATb( 7A-7(M, J) )/(7(N*J)-Z(M t j)) 

ALAMbxPLAMIM, J) ♦RaT*TXPLaH(N» J y-XPLAMfM* j) ) 
DUMPba93*ALAM*r93*XPLAMN(M, J) 

SLAM b dUHP 

PLAMbxML am ( M » J) ♦ RTr*TXMUH“(N-, J V-XMLAM" (M* J) ) 



OUMl sA93*BLAM*B93*XM|_AMN(M f j) 

“ TF(K.fO,2)DUMPsOUM1 
ZATsZN (M, J) -DUmP*DELR 
FPbABS< (ZAT-ZA)/(Z<N f J)-z(M,j ) ) ) 

IF(EP.LT.ER2ZZ)G0 TO 9 
ZAbZat 

IKbI k ♦ 1 

IF(TK,LF.10)GO TO 40 
WRITE (6*101) 

101 FORMAT <* ERROR IN A POINT LOOP IN HSMoCK*) 

CAXL PNCH ~ ~ ' 

9 PAeP(MfJ)*RAT*(P(N»J)"P(M*J) ) 

0 AaQ ( m* J ) ♦RAT*fO(N»J)-0(M*J) ) 

~HA*H ( M f j )*RAT* ( H ( N *3T^H~< M?J ) ) """ 

RHa**RhO (Mt J) *RaT* (RHO (N* J) -RhO /M t J) ) 

SlA*SI (Mt J) ♦RAT* (SI (Nt J) -SI (Mt J) > 

PHEAepHE (M* J) ♦DAT* (PHE (N* J) -PH f (M t J) ) 

PHIAepHI (Mt j) ♦RAT*(PHI (N t J)-PHI (M, J) ) 

T A«FT ( PA # PHI A t HA ) 

GAMAepGAM (TA, pa» PHIA) 

AAbSOrT (gama*pa/rha) 

IF(J.nE, JMAX+I) GO TO 783 
SI 0(M.J)=SI Q ( M,J-1) 

P 0(m*J)bP Q(MtJ-l) 

PHEQ(M*J)ePHEQ(M.j-l) 

51 0 ( N * J j b S I Q ( N, J-l ) 

P 0(N»si)=P Q ( N * J- 1 ) 

PHEQ(N*J)«PHEQ(N.J-1) 

783 CONTINUE ~ ~ “ 

CALL F (RHO(Mtj) » 0 (M» J) »R»2(M*J) tPHE ( m* J> tXP|_AM(MtJ) ♦ xmlam ( M t J) • SI 
1 (M,J) , 

lTfMTj j 75 I Q ( WVjyyPQ ( Mrj)TpHE^ (M’,Tr7F P 1 , F M 1 ) 

CALL F (RHO(Ntj) tQ (Nt J) tRtZ <Ntj) tPHE(NtJ) t XPLAM (Nt J) t XMLAM (Nt J) *SI 

1 ( N t J ) t 

1A (N, Jj *SIQ(N # J ) *PQ(N, J) t pHEQ (N', J) ,FP2,FM2) 

FPAbFPI ♦RAT*(FP2 -FP1) 

FMabFmI *RAT*(FM2 -FM1) 

RQ?bQN(M, J)*QN(M,J)*RhON(M, J) 

Al«FPA/RHA/QA/0A*AAV4FPN(Mt J)* oaV/RQ2 

IF ( (K/2 )»2.EQ.K) A1bFHA/rHA/QA/qA»AAV»FMN(M, J) «B A V/RQ? 

APbSOrT ( ( 0A/AA)**2-lt )/RHA/Q a/OA 

ACbB9*» # SQRT ( ( Qm ( M* J) /AN ( Mt J) )**?-1 .)/rQ 2 
A2eA93*A2t AC 


OELRsRN-R 

OPTs-lt 

IF ( (K/2)*2.EQ.K) OPTsl, 


PSHbPa+ OPT* (PME2-PHEA -Al*0ELo)/A2 
ER3= (PSH-P2H) /P (M t J) 

IF(ABS<ER3) .LT.1.E-4)G0 TO 19 



ITI s I T I t. 1 



IF(IT1.GT.15)G0 TO 103 
IF(ITl.GTt2)G0 TO 1* 



ERT=ER3 
BETlepET 
PETbI ,01*BET 



GO' To 15 





103 WRITE (6,220) 

220 FORMAT (* ERR OR I N~ S HOCK aNgTTe~ tN~HSHOcK* ) 

CALL PNCH 

34 DUMsp^T 1 -ERl # (PET-BET 3 )/<ER 3 -Eoi ) 

ERleER3' 

RETIbREt 

PETsDU m 

15 7 N ( M , j ) s ZTM » J ) ♦ • 5 * (TAN ( B E T A (K* J) > ♦TAN (BET) ) *OELR 
T5alS(K, J) 

7N ( Ip, J) ssZN (M* J) 

CALL FSHOCK (K* J« J) 

GO TO 4 

19 PETAN(K, j)sBET 

7NTM, j) s.5*TTAM C0ETA (K, J) ) ♦ TaN'(BETAN {« • J) M *DELR*Z (M» j) 
T5sIS(K, J) 

7N ( IF, J) seZN (M, J) 

GO TO 29 ’ 

46 CONTINUE 
UWN (M) suv 
WWN ( M) & WV 
VWN(M)»VV 
29 CONTINUE 

PN(M, j) s P2H 
ON ( M , J ) rQ2 
MN (M. j) sh2 
PHEN(M, J)aPHE2 
RHON (m* J) »RH 2 
SINN(m» J) sSI2 
PHIN(M,J)bPHIN(I,J) 

TN(M,j)sFT(PN(m,J) »PHIN (M* J) , Hn (M* J) ) 

GAMN(M* J)=PGAM(TN(M*J) ♦ PN ( M* j) , PHIN ( M, J) ) 

AN<M,j) bSQRT(GaMN(M*J)*PN<M,J) /RHON(M,J> ) 

CALL XL AM (ON (M » J ) ,AN(M, J) ,P H fN <M* j) » X pLaMN (m , J) • XMLaMn (M , J) ) 
FTsABS < 1 •*BT/0fTaN(K, J) ) 

lF(Ivv.EO,0,OR,Ef,Lt,r,E-05) Go TO 10 
KIL«sKlL*l 

IF(KI L.GT.5) GO TO 1493 
A 9 3 = ,5 
B93= .5 

PTsBETAN (K* J) 

GO TO 4 ' - 

3493 WRITE (6,)393) 

1393 FORMAT (* AVERAGING PROCESS DOES NOT CONVERGF IN HSHOCK*) 

—STOP — — — — ■ - " 

10 CONTINUE 
XJlBXjlS 
RETURN 

end 



I 


SUBROUTINE pnch 

COMM'UKTCTV Y/"IVY,KC ORRTI TV 
COMMON /JF/ JFTNAL 

COMMON /G/ A1 (3*0) *A2(3*9) »A3<3.9) *RR? <3) »RR2(3) ,RR3(3) 
ITNUMCwSTWUMU W S»NumSWS 
COMMON / 0/ XCOW| 

COMMON /XF/ XFTN 

COMMON / A/XT. T Hm A X»T H H 0).R ,Z(4‘07IO )Tp (40 .TO )TpHp ( 40TfO' >» 

1 0 ( 4o # 1 0) *SI (40*10) * H ( 40 * 1 0 ) , Pu I ( 40 » 1 0 ) ,RHO(40*l0) »6 Am(40»10) 
COMMON / SCLTM / ZLIFTC*XThRc*YM0MC.ZLIfTS*XTmRS*7M0M$ 

COMMON /C/ IMAX (10) .JMAX, I STaRT, KOUNTf * KOUNTP 

COMMON /D/ UW (4(1), VW (40). WW (40)*XW (40). YW (40).tH W (40) 

common /H/ ISIM 

COMMOn/T/XJ 

COMMON /J/ QN ( 40 . 1 0 > *PHEN (40.10) *SlNN(40*l0) * XPL AM (40 f 1 0 ) » 

1 xMLAm ( 4o* 10 ) .FP(40) *FM(40) .A(4ft f 10) 

COMMON /L/ AtPHA~NT7 ♦ 1 0 ) * ALPHA ( 7 ♦ 1 0 > * 8FTAN ( 7 . 1 0)* BETA ( 7.10) “ 
COMMon/M/ IS ( 7. 1 0 ) 

COMMON/N/ SIQ ( 40 . 1 0 ) *PO (40.10) ,PHEQ(4p»10) ,hQ( 40,10> ♦ PHlO (40 * 1 0 ) . 
roQT4'0.10) « HHO^T4'o7l 01 .GTMQ (40 • YO ) 

COMMON /O/ ALP(T.IO) .ALPN(7,10) 
common /P/ J*XCN,XC.XXI* JW.INT. ICOWL.RCOWL 
COMMON /S/ RI.KOUNTTKOTJNTS.IcOwlT 
COMMON /V/ xjl 

COMMON /W/ ISIMEx.IDUMMY, JINT.7OUMMY(40) *THWW(2) .JD1 » JD2 

C0MM0N/EX/KTRuN(3) 

COMMON /THR/ PINF.ZLIFT.XTHR.YMOM.JJI.ZSHIFT.XSHIFT 

COMMON /IQ/ NUMEXP.ZSAV 

COMMON /SPE/ KOUNTC 

COMMON /WR/ I WRAP 

COMMON /TEM/ T(40. 10) 

COMMON /STREAM/ XMAST.XENT.FSX.FSZ 
COMMON/XSTP/XSTP 4 

6 1 MENS I QM Hr do) 

DATA hE/5M Y 75HTHETA.5H j .3H a .1 HZ*Yh P. 1 H y . 3H T HW . 3 H y * 

13H Z / 

BACKSPACE 7 

73^ continue — 

IF(Xj,EQ.O.) GO TO 513 
WRITE ( 5. 70 ) KOIJNT.X1 

" 7 0 - F"0 R M A t (1H 1 * TO X , * K 0 UN T « * * 1 4 , 1 n x ♦ *R s * *E 1 3 .5//) 

GO To 503 

513 WRITE (6,504) KOUNT.X1 

5 0 4~'f" DRMA fTlHl*10X,*KOUNT ■ **I4,lnX»*X = •*E13,5//) 

503 CONTINUE 

iSWEEP g 0 

ISTART® 1 

WRITE (7,2929) kOUNTF .KOUnTP, IStaRT* I Vy ♦ I A V.KCORR » JFI NaL * 

KKTPUnU) *1*1*3) .XSTP 
2 92 9 rORMAf( 1 0l5.-ETrT.2l 

WRITE (7.g) JMAXtISiM.lSiMEX.iWDAP.NUMEXP.ISWEEP* (IM aX(J) ,Jbi» JMaX) 
WRITE (7,310) R.Xj.XJl ,XC0WL,RC0WL»XFIN*ZSAV,PINF 
310 FORMAT (BE10. 3) 

WRITE (7,79) KOIJNT.R 
WRITE (7,2) NUMLWS 
00 3)1 Ial.NUMLWS 


311 WRIT? (7,310) RR1 (!) • (A1 (ItJ) ,J a lt9) 

W RITET? <2 ) N U mJWS 
DO 31? IslfNUMIjWs 

312 WRITE (7,310) RR2(I). (A2(IiJ),J e ) *9) 

IF(IStM.EO* 1) r,0 TO 314 
WRI Tf ( 7 * 2 ) NUMSW5 
DO 313 Jsl*NUM$WS 

Sia^RITEnOlO) RR3(T) t (T3KI* J) *Jb1*9) 

31* CONTINUE 

WRITE (7,2) JlNTfKOUNTC 

WRIT? (6ffel0) ZSHIFT*XSHlFT*XTHR,ZLlFT,YMOM 
610 rORMfiT<10X»*Z moment AXIS = *»Fll.3*5x**X moment AXIS b ** E 1 1 • 3/ 
1 10X,#THRUST S *.Ell ,3 *«;x,#lift * #*Ell,3*5X 

1.*R1TC'H ING MOMENT S * * E l 1 • 3 ) 

IF ( IS (3> .NE.O.aNo.ISIM.EO.O) WpiTE<6tft2l) XTHRC*ZLIFTc* YMOMC 

621 FORMAT (* CONTACT * ,*THRUST s *tEl 1 ,3t5X ,»LIFT s *.Ell.3,5X 
1 f * PTT c HI NG M OM E NT = **Ell#3) 

T F ( I <5 ( 1 ) .NE.O.aNo.ISIM.EQ.O) WdjTe (6»f,22) XtHRS^ZLIFTs, YMOMS 

622 FORMAT (* SHOCK * ,*THPU?T s * . F 1 1 , 3 , <5X ♦ *L IFT b *.Ell,3*5x 

1 f* PITCHING MOMENT a #*Eij.3) 

WRITE (6,623) 

623 FORMAT (/) 

WRITE (7*9) xmart *xent *fsx*fsz 
9 FORMAT (*El 3 *5) 

WRITE (7,1) zLIfT, x THR,yMOM,2SHtfT,xSHIFT 

no 71 Js 1 1 JW 

IF (ISiM.eQ«0,anD.J.EQ.JW) GO Tn 500 
IF(J.gT,JINT ) GO TO 2260 
IF (Xj , N e , 0 • • 0 R , X J i ,NE, 0 . ) GO T n 50 5 
WRITE (5t 506) J,HE(1> .HE (4) • TH C , !> *HE (5) 

506 FORMAt(//10x,*J ■--••I2»24X»A5»A3 ♦E13,5,/4X»*I**6 x# A1 ,10X* 

l«p«, j 0 X,#Q#» 9 y f *PHE* t 8XfPSI*»] 0Xt*M##l"0X*#H* _ * 9X*#Pwi*“ 

1. 8X*»rH0**8X,*GaM**9X,«T*) 

GO TO 510 

505 IF (XJi #EOt 0. ) c,0 TO 507 

WRITF (6, 506) J,HE (2) »HE (4) tTH(.l) *HE (6) 

GO TO 510 

507 CONTINUE 

WRITE (6 1 506) J,HE (2) »HE (4) *TH{.J) *HE (5) 

GO To 510 

2260 215bZSAV-TH( J) 

WRIT? (6 » 506) J.HE (3) *HE (4) » Z15.HE (7) 

5io continue 

WRITE (7, 1 ) TH(J) 

GO TO 5o 1 
500 CONTINUE 

IFTJTlT , J I NT ) C,0 TO 2270 
WRITE 2300) jW, HE (1 0 ) . HE ( 7) 

2300 FORMAT(/// 40Xf*SlOEwALU«/ lnXt*J s #»l2/ilx**X**9X.A3 
1 ♦ 9 X “ * *U* « 10X# *W* fToXTEV*/ 

14X**i**5X*Al fiOXf 

1*P*«10 X **Q** 9Xf*PHE** 8X**Si«,l0Xf*M**10X**H** 9Xf#PnI* 

f7gx V# p HO*f 8 XY*r, AM **“9 XV# T * J ~ 

GO TO 5885 
2270 CONTINUE 

IFTXji f EOVTD gO TOn 6884 



WRITE(6,2300) JW , HE ( 9 ).HE(5) 

-g-Q— Tp— 

6864 WRITE f 6,2300) JW,hE<8 ).HE(6) 

6885 CONTINUE 

WRIT ET7T2 - ) IMaxTJ) - - 

50 1 cONTimUE 

IMA X J s iMfl X ( J ) 

I FTTCljWCT • E Q • 1 ) IMAXJ=TMaXjVi 
DO 172 I=1*IMAXJ 

B sSORT (GAM(I,J)*P(I,J) /PHn ( I * J) ) 

fm cO(Trj)v co SC8I titj rr/e 

IF(ISIM.EQ.I.OR.J.NE.JW) GO TO 502 
FMsSOrT ( UW ( I ) »«2*VM ( I ) «*2*WW ( t ) *«2 ) /R 

twx=thwtit*xj 

XW(I)sR*COS(THwX) 

YW(I)aR*SlN(THWX) + a.-XJ)*THW(T) 

715*Vw(n 

IF (J.rT.JINT) Z15sZSAV-ThW(I) 

WRITE (6,302) Xw(T)«Z15 ♦ UW ( I ) , wW ( I ) *\/W ( I ) 

302 FORMAT ( 5 X , 5 El 1.3 ) 

WRITE (7* n UW ( I > *Ww(I) tVW(I) »T hw(I) 

502 CONTINUE 
ZT5=Z ( I * J) 

WRITE ( 6 , 79 ) I, 715 »P(I*J) .O(T.J) *PHe<I»J) ,SI (I.J) .E m*H(I,J) . 

1 PHI ( I , J ) , RHO(I,J) , GAM ( I , j ) ,T ( I , J) 

WRIT? (7.3010) 7(I.J) .P(I.J) .G(T.J) tPHr (I*J) ,SI (I.J) .E m.H(I.J) . 
1PHI (I.J) »RHO(I,J) .GAM (I.J) tT(I.J) 

3010 FORMAT (7E11.3) 

172 CONTINUE ' ' ~ ' 

IF(IcoWLT.EQ.O) GO TO 71 
WRITf( 7,1) (ALP ( M * J) . Msl • 7) 

WRITE (7, l > (ALPHA (M. J) »Mb1, 7) 

WRITE (7*1) (BETA (M*J)»Hel,7) 

WRITf( 7 .2) (IS (M*J) .Msl.7) 

IF(IS(3) ,NE,0,AND.ISIM,EQ,0) WoiTE(7*i) ZLIFTC.XTHRC* yMOMC 
IF (IS (l ) .NE. o*aNd.ISIM.EO.o> Wdi Te (7 *i ) zlifts*xthrs*ymoms 

1 FORMAT (7£l 1 #3) 

2 FORMAT (1615) 

79 FORMAT < 15*1 1E11.3) 

71 CONTINUE 

IF(ICGWLT.EQ.O) GO TO 100 
WRITE (6*4006) 

no 4 qq6 jsl,jw 

WRITE (6 ,79 > J. (ALP (M, J) .M*l ,7) 

4006 CONTINUE 

4005 FORMat<//10X.*aLP*/4X.*J*) 

WRITE (6,4000 ) 

DO 3003 Jsl.JW 

WRITE(6.79) J. (ALPHA (M.J) *M*i *7) 

TO 03 CONTINUE 

WRITE (6,4001 ) 

DO 3nn8 Jg 1 1 JW 

WRITEd>»79) J.(BETA (M»J)*Ms1»7) 

3008 CONTINUE 

WRIT E ( 6 *4002) 

DO 300^ J®! . JW 




WRITE (6,4004) j # (IS (Ht J) , Me 1,7) 

3009 CONTI MUE 

TFdWpAP.EQ.i) GO TO 1532 

WRITE (7,2) IDUMMY 

WRITET7.1) (ZDi)MMY(I) » Ial»NUMEyP) 

1532 CONTINUE 

4000 FORMAT (//l OX* *ALPHA*/4X»*J*) 

400r for MAf(7?l'0XT*WE TA^«7 4 x »* j* > 

4002 FORMAT (//10x»*is */4X»*J*) 

400* F0RMAT(I5»7(I4.7X> ) 

100 continue 

IF(KOUNT.NE.KOIJNTF) GO TO 7744 
IF(ICOWLT.EQ.I.AND.IWRAP.EQ.O) CALL WpAP ( 1 ) 

7 7^T - C’0"W'TTn0 E ~ 

FMDEILE 7 

IF (KOUNT.EQ.KTpUMd ) .OR.kOUNT.fO.kTPUm <2> .OP.KOUnT.eQ.kTPUn (3) ) 
1 RFTUPN 
CALL EXIT 
END 




SUBROUTINE FSHOCK <K* JL» JM) 

COMMON“/C/I MAX( TOtrJM AXy I STARtVKOUNTe ♦ K OUNTP 
COMMON /FN/ FPN(40*10) *FMNf40*Tn) 

COMMON /ALLR2/ PON(40,lO) »HGN(40*10) *OQN(40,10) *SIGN(40*l0) » 
1PHEQN (4o * rot » Pm 1 0N'( 40 * 1 O') *“PHOQm f'4'6 *10) *GAMQm (40 * 1 0 ) 

COMMON /AV/ AAVtRAV 

COMMON /ALLR1/ 7N(40» 10) *TN(40,10) *GAmN(4q, 10) * XPL AMN f 40 ♦ 1 0 ) * 
1TMLAMKT(40T1T)) 

COMMON /IVY/ IVY,KCORR*IaV 

COMMON /A/ Xlf THMAX*T h(10) *R *Z (40* 1 0 ) *P ( 40 » 1 0 ) *PHp ( 40 • l 0 ) f 

1 — 0(4oTlO) • STT4 0 * 1 0 ) * H (40 * 1 0 ) ,Pu~f (40 * 1 0 ) * RHO >40 * 1 0 ) *0 Am ( 40 1 1 0 ) 
COMMON /B/ PN (40*10) *PHlN(40*lo) *RHON(4o»10) ♦ HN ( 40 * 1 0 ) * ZN (40 » 1 0 ) 
COMMON /I/ Xj 

COMM 0 nT/J/~Q NT 4T0T10 JTPH E N~ ( 40T 1 0 ) * STM N ( 40 * 1 0 ) * XPL A M ( 4 0 , 1 0 ) • 

1XMLAM ( 40tl0) *FP (40) *FM(40) *A (4n # 10) 

COMMON /K/ RN*nELR 
COMMOn/M/~TS (7, 10) 

COMMON/N/ SI Q'( 40*10)* P0(40 t 10) , PHEO ( 4f) * 1 0 ) , mQ ( 40 , 1 0 ) * PHI Q ( 40 * 1 0 ) 
100(40*10) *RHOQ(40*10) *GAmQ(40*1 0) 
common /U/'TRZZZ 
COMMON /V/ XJ1 

COMMON /W/ ISImEx, IDUMMy, JINt*7DUMMY (40) *THWW(2) *JDl*JD2 
COMMON /sa/ XJTS 
00 6 JBJL*JM 
* IL e l 
A 9 3«e 1 ; 

R93*0. 

IP (BA V* ST'# 0* ) a93=,5 

IF( B A\/ rGTVOVT b 93 sTS 

IslSfK* J) 

SIT*SINN(I*J) 

PHpTttpHEN ("I * J ) 

PT»PN(I * J) 

IF( J.qT. JINT) XJlsO. 

LsM 

IF( (K/2) «2.EQ.K) L*I*1 
73aZN(I*J) 

IP(J7nE. JMAX+1) GO TO 3947 
P 0(1* JM ) *P 0(1, JMAX ) 

M Q(i»JM)=H 0(1, JMAX) 

0 0(1* jMpsG OTTTJMAX) 

SI 0(1* JM ) B S I 0(1, JMAX) 

PHEO( I* JM) =PHEO( I* JMAX) 

PHTQ ( I * JM F=PH IoTl~»tJMAXl 
PHOQ ( I * JM) sRHOO ( I * JMAX ) 

OAMO(i* JM)*GAMO(I, JMAX) 

P Q(i *JM)*P 0 ( L * JMAX ) 

H Q(L»JM)«H 0 (L* JMAX) 

0 Q(1_*JM)bQ Q(L*JMAX) 

SI Q(L»JM) s SI 0(L*JMAX) 

PHEO(l* JM)=PHEO(L* JMAX) 

PHIQ (L* JM) «PHIO (L* JMAX) 

RHOQ (L» JM) s RHOO(L* JMAXP 
GAMQ(| * JM) *GAMO (L» JMAX) 

3947 CONTINUE 

8 7A* (Z<J*J)*Z(L»J) )/2. 


TTel 

10 PA T= ( 7A-7 (It J ) f/ < Z ( U * J > -Z < 7 ♦ J > ) 

ALAMsxPLAM(?» J) *RAT* ( XPLAM ( L » J V-XPLAM ( I * J) ) 

DUMPs a93*ALAM*993*xPLAMN ( I » J) 

ZATs23-DUMP*DElP 

ERR*arS( (ZAT-ZA>/(Z(L*J)-Z(I*J) ) ) 

IF (EPP.LT.ERZZ7>C50 TO 9 

7A*Zat 

ITsIT*1 

IF (IT. LE. 10) GO TO 10 

WRITE (6* 200 ) 

200 rORM AT ( * ERROR IN A POINT ITERATION In FSHOeK*) 

CALL PNCH 

9 CONTINUE 

PAsP<r*J) *RAT«(P<L* J)-P(I*J) ) 

OAsO(T* J) ♦RAT#(Q(L* J) -0(1* JH 
HAsHTf, jy*RAT*(H(L*J)-H(I* J) ) 

RHA»RwO(I* J) ♦RflT* (RHO (L* J) -PHO'f j* j) ) 

SIAsSl (I, J)*RAT*(SI <L*J)-SI (I*j) ) 

PHIAspHl (I*J) ♦RAT«(PHI (L* J)-PH? (I* J) ) 

PHEAsdHE(I*J) ♦RAT*(PHE (L*J)-PH p (I* J) ) 

TA«FT'(Pa«PHIA*HA) 

GAMAep6AM(TA*PA*PHlA) ' 

aa«sorT (gama*pa/rha> 

CALL r (RHO(l»j) *Q(I»J) »R*Z(l»j) »PHE (T * JAjXPL aMJ I * J)_* XML A M ( I j» JL,_S J 

l(I*J)t 

1 a ( i * j) ,siQUf J) «po'(I«J) *pHEo f i;j) ,fpi,fm 1 ) 

CALL F ( RHO(L*J ) *Q(L»J) *R»Z (L»J) »PHE (L» J) » X PI L A M ( L • J ) _* X M L A M ( L .j J L) * S I _ 

i(L*J>. 

1 A ( L t J ) *SlQ(LtJ) *PO(Lf J) fPHEOfL’.J) *FP2 f FM2) 

R02s0n ( I ♦ J > *QN ( I * J) *RHON ( I , J) 

FMA«FpI*RAT* (FP2-FP1) 

Q2bQA*QA 

A1sFma/RHA/Q2 

A 1 sAA V*A1 ♦BAV^FPN ( I * J ) /RQ2 

ACsB93*SORT( (QN(I, J)/AN(I* J) )##p-1.)/r02 

A2“S(5rT ( (QA/AA)**2-1.)/RHA/Q2 

a2sAQ3<»A2*AC 

TTsl 

7B*(Z< ItJ)*Z(L'jn/2, 

12 RAT« (?B-Z (I* J) V /7z(L* J)-Z<I*J> ) 

PLAMeyMLAM ( I * J) *RAT« ( XMLaM (L* J‘> -XMLAM ( I , J) ) 

DUMP ba 93»BLaM»b93**XMLAMN(I«J) _ 

7ATeZ3-DUMP*DELR 

ERRsARSf (ZAT-ZP)/(Z(L*J)-Z(I. J) ) ) 

TF(ERR»LT.ERZZZ)OQ TO 1 4 

ZBeZAT 
t T e I T ♦ 1 

IF(IT.LE.10)G0 TO 12 
WR HE (6*201 ) 

201 FORMAT (* error IN B POINT ITERATION IN FSHOeK*) 

CALL PNCH 

1 4 PBbP( f , j) >RAT*>P(L*J) -PI I* J) ) 

GBsQ(i*J> ♦RAT*(Q(L*J)-Q(I*J)) 

HBbH(I*J) ♦RAT*(H(L* J)-H(I* J) ) 

“ RHlsRHOd* J) *RaT*(RHO(L* J)-RHOfI*J) ) 


SIP=SI (I * J) ♦Rat* (SI (L f J)-SI (I*J) ) 

PH TPspHl ( I * JT+oAt* < PHI < L » J ) -PH T f I ♦ J ) ) 

PHEB = oHE(I*J) ♦PAT* (PHE (L» J) -PHr 1 1 * J> ) 

TRsFT (PP*PHI 8 »HBi 
GAMRspGAM (TB»HR*PHIB) 

ABsSorT (GAMB*PB/RHB) 

FMBsFmI+RAT* (FM2-FM1 ) 

0?sQ&#QB 
PI «iFmb/RHB/Q2 

B1«sAAv*B1*BAV*FMN<I* J) /RG2 
p2^T5rT1TQB'7aB) *^2-1 • ) /RhB/0? 

P 2 sAQ 3 *B 2 *AC 

TTbI 

7D*(Za*7B>/2^ 

16 rATb ( 7 D. 7 A)/ (ZP- 7 A) 

ALAMOsTAN(PHEA) ♦RAT*(TAN(PHEB)-TAN(PHEA ) ) 
^DUMPBAgBtt-ALAMO + BRB^TANTPHENl ( T *T) ) 

7ATS73-DUMP *OFLR 
ERR*A 9 S( (ZAT-ZD) /(ZB-ZA) ) 

IFfTRR.LT.EBIZDGO TO 18 

70*ZAT 

TT«s!T*l 

TF(IT.LF,10)go TO 16 
WRITE (6,?02) 

202 FORMAT <* ERROR IN D POINT ITERATION In FSHOcK*) 

CALL PNCH 

18 pD«Pa*RaT* (PB-PA) 

OD*QA*RAT*(QB-OA) 

WDeHA*RAT*<HB-HA) 

PHDaRHA^RAT* (RHB-RHA) 

SID«SiA*RAT*(SIB-SIA) 

PHIDrpHlA*R«T*(PHIB-PHlA) 

PHEDspHeA*RAT*(PHEB-PHEA) 

TPbFT (PD«PHID>hD) 

GAMDbfGam(TD»Pd»PHID> 

AD*SorT (gAMD*PD/RHO> 

RATs ( ? D-Z(I»J) )/(Z<L>J)-Z<I»J) > 

POOPPO ( I fJ> *RA t* ( PO < L • J ) -PO ( 1 t J > > 

OOQaOod* J> *RAT*{QO(L* J)-Q0(I*J) ) 

H00»H0(I*J) ♦RAT*fHQ(Lt J)-HO(i, j) ) 
RHDQsRH0O(I»J)+RAT # (RH0Q(L*J)-oHbQ(If j) ) 

SIDQsSlQd* J)+PAT*(SI0(L» J)-SI 0 {I* J) > 

PHlDOsPHIQ ( I * J) ♦RAT*(PHIQ(L»J)-PHIQ(I» J) ) 

PHEDOaPHEQ (I ♦ J) +RAT* (PHEQ ( L * J) -PHEQ < X ♦ J) ) ' 
GAMDQbGAMQ ( I * J) *RAT* ( GAMQ ( L» J) -GAmQ ( I , J) ) 

PN(I* j)s(A2*PA*B2*PB+ (A1-B1)*DflR*PHEa-PHEB)/(A 2^B2) 
PHEN ( I • J) sPHEA.A?* (PN ( I * J) -Pa ) *A1*DELp 
VDs©D*TaN (SIO) 

TlaOEL^/COS (PHEO) 

TF(XJ 1 .E071.)TlsTl/ZO 
IF(Xj.E0.1*)TlaTl/R 
T2 bPD0/RH0/QD 
T3bTan (SIO) *QOO 
T4 s Q0*SI0Q^C0S^Sid^* # 2 
t5sQo*COS ( PHED) *X J 
1 +Q 0 *SlN (PREO ) *X Jl 


vC*VO-Tl* (T?*TaN(SID)* (T3*T4*Tc> )«AAV 
SPHENsS I N ( P'RENf IT jH ^ 

TSINefAN(SlNN(f»J) ) 

CSINeCOS (SlNN(I» J) ) 

CPHENsCOS(PH£N(I» J> ) 

TT1«0eLR/CPHEN 

IPfXJl.GT.O.) TTl sTTl /ZN { I ♦ J) 

IFfXj.GT.O.) TTlsTTl/RN 
T2?apoN ( I t J ) /RuON ( I * J ) /ON ( I * J) 

T33*TslN*QQN(I f J) 

T44*Qn(I» J)«SI0N(I* J)/CSlN 
T55*0m ( I ♦ J) * (CPH£N*X J*SPhEN*X J? ) 

DVCsTTl# (T22*TSlN*(T33*T44*T55> ) *0AV 
UCbVC-DVC 

TlleDELR*TAN(SfT) /COS(PHET) 

IFfXJl.GT.O.) TllsTll/2N{ItJ) 

IF ( X J.Gf . 0 • ) TlleTll/RN 
Tl*sTl*TAM (SlD) 

TlsTl*A93*Til*P93 
PH OZ spHD^P 0 Q * T 1 
PZ«Pn-POQ*Tl 
GAMz r pAMD-GAMDO#Tl 

PHON ( T * J ) *RHOZ* ( PN ( 1 1 J) /PZ )**(?. /GAMZ'l 
T2*(0dQ*0D*TAN(SId>*SIDQ)/C0S<FID> 
vVZ®OD/COS (SIO) -T2*T1 

Wc«VVZ*VVZ* 2 . *GAMZ/1 GAM*- 1 .)*f PZ/PHOZ-PN { I, J ) /R hON ( I . J > > 

ON (If j)eSQRT(VvC-VC*VC> 

SINN (IfJ) sATAN (VC/QN( I f J) ) 

HNrifj) sHD-HDQ#T1* (VVZ*VVZ-VVC> /2. 

PHIN(J, J)aPHIO-PHlDO*Tl 

EC*A05(1.-PT/Pm(I,J) ) 

TN (If j) sFTTPN ( I » J) *PHIN(I*J) #Hw ( I f J) ) 

GAMN(I* J)»FGAM(TN(If J) »PN<I« j) . PHIN (I , J) ) 

AN ( If j) sSORT (GAMNdf J )»PN ( It J ) /RHQ N ( I , J) ) 

CALL XLAM(QN(I,J) t AN ( 1 1 J) tPHENd*J> t XpLaMN ( t t J > t XML aMn ( I tJ) ) 
lF(EC.LT.ltE-04.ORtlVYtEQt0) Go TO 6 
SITsSlNN(ItJ) 

PR ETepHEN d t J1 
PTePN(ItJ) 

KILsKlL*l 

IF ( K I L.GT.5) GO TO 1493 
A93=.5 
B93s,5 
GO TO 8 

1493 WRITE (6tj393) 

13 9 3 eQP MaT<» AVERAGING PRO CESS DO ES NOT C ONVERGE IN FSHOCK*> 

STOP 

6 CONTINUE 

XJieXjlS 
Return 
end 



subroutine wshk(m # b) 

"C 0 M M'O N~7 A7 X XTpfH M^XTTH“( TO )TR *7(40*1 0T*p> 40* 1 0 ) YpHf ( 40 . 10 ) * 

1 Q (4q * 1 Q ) *SI (40*10) »H(40*10)#PmJ (40 • 1 n ) *RHO'(40»ln) *GAm (40*10) 
COMMON /*/ PN (40*10) *PHlN(40*ln) *RHON(A0»l0) *HN (40*10)* ZN (40*10) 
COMMON /C/ I'M/fXTl 0 ) * JMAX * I START * KOUNTF » KOUNTP 
COMMON /n/ UW (40 ) * VW (40>*WW (40>*XW (40)*YW (40>*THw (40) 
COMMON /Z/ U W N { 4 0 ) *VWN(4o) «WWN(40) *XWm(40) *YWN(4o> *THwN( 40) 
COMMON /I7 XJ 
COMMON /«/ RN*oELR 

COMMON /L/ ALPhAN(7*10) *ALPHAC*,10) *BfTAN(?*10) *BETA(7,10) 
COMMon/M/ IS (7* 10) 

COMMON /O/ ALP(7*10> »ALPN(7*10) 

COMMON /V/ XJ1 

COMMON /w/ ISfMEx* IDuMMy* JIN t* 70 UMMy ( 40) »TH w w(2) * JDl * JD2 
COMMON /SA/ XJ?S 
.jwcjMaX* i 

TF{ Jw.Gt, J lNf) XJisO. 

IsIS(m*JW) 

K=IS (m* JMAX) 
l_e-l 

IF( (M/2) *2.EQ.M) Lsl 

73=ZN (K* JMAX) 

7l*Z (I* JW) 

THWXeTHW(I)*XJ 

YlsYw ( I ) 

XlsXW (I ) 

THXeTW ( JMAX ) *X J 

Y3bRN*SIN(THX) ♦TH(JMAX)*(1,-XJ) 

X3cRn#C0S (THX) 

X?bX3 

FX1®TaN(BETA(M,JW) ) 

FY1BTAN(ALP(M* JW) ) 

FX2oTAN(BETAN(M.JW) ) 

FY2?bTAN (ALPHAN (M*JW) )/CqS(BETaN(M»JW) ) 

ORsPn-R ~ 

11 72«ZN(I*JW) 

TT«*1 

TO IF(XJT.EO.O,) 

1CALL SWALL(RN,72*X2*Y2*GX2*GZ2) 

IF(Xjl . gT.O.) C ALL SWALL1 (TH2*RN*Z2*Gx2*GZ2) 

IF(XJ1.EQ.0.) 

1TH2bAtAN(Y2/X2) 

IF (Xj.EO.O* ) TH2 oy2 

TH?XsfH?*XJ 

IF (X Ji ,GT.O. ) Y2»RN*SIN (TH2X) ♦TH2«M 1 .-XJ) 

FY2b Fx2 »GX2»62? 

72oZNTI* JW) * <F02?*FY2)«My2-Y1 ) /?, 

7 T ® I T ♦ 1 

IF (lT.GT,2) GO TO 22 

GO TO 10 
22 CONTINUE 

TF(IT.GT,3) GO TO 25 _ 

rATb (y1-Y2) / (Y3-Y2) 

RDUB(pETAN(M* JW)-RAT*BET aN<M, JmaX) )/() .-RAT) 

FXPbTAN (BOU) ’ 

GO TO 10 


25 FR2=Fx2 

IF(AB$(FY21 .TT71.E-06) Fr2sO. 

ALP2sFY 2 
14 T HWN(i)aTN2 
7 N(I» jW)bZ2 
7N(I*l* JW)=Z 2 
XWN<n e X? 

YWN(I)«Y2 

THWN ( J ♦(_ ) ®TH2 

XWN ( T +L ) bX2 

YWN ( T *L ) sY2 

ALPM(M» JW)=ATAM(ALP2) 

R2sFR2 

RETAN (MVJW1 =ATaN <b2~) 

ALPHAKj(M»JW)sAfAN(ALP2«C0S(BFTiN(M»JW) ) ) 

XJlsXjlS 

return 

FND 



I 


SUBROUTINE CO*L(MM*IFS*OPTj 

common /A/ Xl,THMAX*TH (lo) *R » Z (40*1 0 ) • P ( 4 6 » 1 0 ) t PHp ( 4 0*1 0 > * 

1 Q(4f),l0) *SI (40*10) »H( 40*10)* PuT ( 40 * 1 O > . RHO '( 40 » 1 0 ) *GAm< 40*10) 
COMMON /B/ PN ( 40 * 1 0 ) »PHlN(40*lft) * PHON f 40 » 1 O') « HN ( 40 • 1 0 \ . ZN (40 * 10 ) 
COMMON /r/ I MA x (10)* JM A X , 1ST A Rt * KOUNTf ♦ K OUNTP 
COMMON /D/ UW (40), VW (4o),WW (40)»XW (40), VW (4 Q).THw (40) 

Common /h/ ISIm 

COMM0l^^ _ QNT40Tr0)TPl^El^(4'0TlT)TsTNNf40*l0'r*XPLAM(40,lbj V 
lX ML AM (40*10) , FP ( 40 ) *FM(40) * E (4o , 1 0 ) 

COMMON /L/ ALPHAN(7*10) *ALPHA (7*10) *BeTaN(7, IQ) »BETA (?*10) 

COMMO"n/M/ ‘1S ( 7,10) “ " 

COMMON /O/ ALP(7,10) *ALPn(7,10) 

COMMON/P/ KC1 »KC?*KSl ,KS2 
COMM 0 K]7 0 / X c 0 W L 
Common /v/ xji 

COMMON /W/ ISlMEx,IDuMMY,JINt»7DUMMY(40) *THwW(2) »JD 1 »JD 2 

C0MM0N~7S'A7~“)QrS ' 

COMMON/WR/IWRAP 

DIMENSION VL (9) *VT (9) .PM (9) *UM fq) *PHM(9) *ZM(9) *HM(9) »RHM(9) *BM( q) 
T7QWT g ) *(3M (9) ,AL (TOTTS’I GN VIT( 9") 

CALL lNDAT2(MM,IFS,AL) 

jWaJMflX 
DO 89 1*1 *9 
89 SIGNvL ( I ) ®1 * 

IF ( ISIM.EQ.O) jWbJMAX+ 1 
DO 666 Jel • JW 
lS(l,j)elMAX(U) 

T*IMav ( J) 

7N(I, j)sZ(I»J) 

RETAM(1, J)»0, 

666 CONTINUE 

TFTIWBAP.EQ.O) CALL ALWRaP(I) 

XW1«XcOWL 

TF(IsIM,EQ.O)CaLL SWALL ( xCOWL»7(2tUW) *XWl*Y W 1 • GX , ®Z ) 

DO 6 J®1 » JW 
IF (J.oT.JINT) XJlaO. 

TsIMAy ( J) 

1 I FTP ( I ♦ MM * J ) -P ( I * J ) ) 4*39*5 
39 WRITf (6,300) 

300 PORMATt* 2 SHOCKS NECESSaRy FROM COWL LIP*) 

CALL PNCH 
5 oPTai. 

KC1«3 

KS2®2 

K»KS? 

I.bIMAX ( J) ' 

MsL+MM 
GO T0_8 

4 OPT®-). 

KCl« 3 ~ 

KS1®1 

K®KS) . 

Ms I M A X ( J) 
l sM+MM 

8 VTT®0 (L * J)»S QRT ( 1.*TAN(SI (L* J) )»»2) 

XMU«ASIN( Sort (GAM(L* J)*P(L, J)/RH0(L* J) ) /VTT) 


l 


T 

* 


r 


r 


u 


1 ■ 
> 

Ll 


’ f 

A. 



I 


TTT=1 

I FT3 . pQ. JINT.OP. J*EQ» JINT ♦miT JT® A L P N ( K 7j \ ' 

ALPHA (K, J)=AL ( J) 

CAeCQs(ALPHA(K>J) ) 

RET*-ftPT*(XMU*5./57*3*PHE<L*jh/CA 1 

SAsSIM(ALPHA(K» J) ) 1 

TSI*TAN<SI (L*J» ) 

SPE*STNTPHE (L*:i) ) “ " 

CPEeCpS(PHE(L*j) ) 

IFANIbMM 
TFAMeTPAMl-3 
KP® 1 
Jjal 

IF (KP,EQ, 1"7 JJeO " ! 

IIbIFaN] f 

IF ( (K/2)*2*EQ.k) 11*1 
IlsII-1 

IF ( (K/2) *2*EQ,k) 11*11*1 
VL(In*(0(L*J)#(TSI*CA*SA*SPF)'l 
IF(J.wE*JMAX* 1) fio TO 5000 
PEeATAN(GX) 

WB*Q(L# J)*SPE 

UBcO(l*J) > TC'OS(PF)*cPE + SINTpe)#TSI) " J 

VB*0<1 *J)*<TSl«COS(PE)-CPE*SlNrPE) ) 4 

PHFBbaTam (Wr/Ub) 

OB bTU|7Co5<P HEB) ~~~ 

TSI*Vq/QR 

C A * 1 . __ 

SAsO, 

SPEoSjN(PHEB) 

CPE«C0S(PHEB) 

VL(II)°VB f' 

100 CONTINUE *• 

SIGNVL<II)*SIGN(1.,VL(II) ) 

VL ( I I ) ®VL (TIT* *2 

ISAVfell 

ISAVE1«I1 

3 tTT aT. ~ ~ ~~ " ’ 

IIsiSAVE 

I1*ISaVE1 

VT ( 1 1 ) r (Q (L* J) » (COS (BET) «CPE-STN (BET) * {SA*T$I-SPE»CA > ) > **? ' li 

Ul* Q (L* J) * (SIN(BET) *CPE*COS (BfT) * <Sa*TSI-Ca*SPE) ) 

IF(J.nE.JMAX*1) go TO 5001 
U1cOI*SIN(BET-pHEB) 

VT C 1 1 > «* (QB*COS (BET-PHEB) ) **2 

>01 C ONTINUE __ ______ 

II1sABS(U1 ) 

GM]«GAM(LfJ>-l. 

GPl e 6A M tL» j) *1, _____ V 

XM1 *1)1 /SORT (GAM <L.J)<*P(t, J)/DHo(L« J> ) 1- 

XMS*PHO(L* J)*UT 

I F(IT. E Q.1)U M(t I)*U 1»(GM1»XH1»XM1*2. ) /GPl/XMl/XMl _ __ _ 

7 PH?bxmS/uH(II) 

PM(In*XMS* (Ul-UM(II> ) *P (L» J) 

y/2*VT (II) »VUII) 

VlsV? 4 Ul*Ul 


’ f 
aL 


I 


V2bV?*UM(II)## 2 
PHM ( T T ) sPHl (L, J) 

7M(!I)=7(L* J) 

HM ( II ) B H (L* J) ♦ (Vl-y2)/2, 

PHM (~J T ) sRHEQ ( HM ( I I ) t PM ( 1 1 ) *PHM f 1 1 ) ) I 

rRe(RH2-RHM(II) ) /PHO(L»J) * 

TFUPS(ER) *LT,T.E-04) GO TO o 
iTel T* 1 

IF(IT.GT.IO) GO TO 100 
IFtlT.GT.2) GO TO 11 
FR?sER 
U2ssUM'(II) 

UM( II) siJM (I I) #,99 

GO to 7 ' I 

100 WRITF(6,200) i 

200 FORMAT ( # ERROR iw hugoniot LOOP IN COWL#) 

CALL pNICH 

101 WRITF (6*201) 

201 FORM A T ( # SUBSONIC EDGE IN COWL AROUND STATEMENT NUMBER 13#) 

CALL" PNCH 

1 1 0UM2bu2-ER2* (Um ( I I ) -U2) / (ER-FR? ) 

6020 ER2sER 

U2rUM ( IT) " ' " t 

UM ( I I ) »0UM2 
GO TO 7 

9 PM (II )sPM (II) 

HM (Il)sHM (II) 

?M ( 1 1 ) s?M (II) 

PHM ( I ? ) sRHM (II) 

PHM ( 1 1 ) sPHM ( 1 1 ) 

V L (li)s\/L (II) 

SIGNVL(I1)=SIGNVL(II) !’ 

VT (TI)bVT (II) *- 

PM ( I I) bRET _ _____ 

pM ( I j ) srf,T 
LJM(II)s-OPT#UM(II) 

US 2csq RT(VT(i T) )»COS(pM(H) ) »U ».(I I L#SlN (0M ( j I ) ) 

wS2bSG>RT (VT (II) )#SIN(BM(II) ) .Um (II ) *CoS (BM (TI) ) 
oHESbaTan(WS2/IJS2) 

U M ( I ) ) *UM (II) 

OPa(P(M,j)-PM(II) ) /FLOAT (IFAN-n “ " U 

VTT® ( o (M* J) # *2) *(1«#TAN(SI (M, J) )##2) 

1 1 s 1 

IF ( (K/2) #2«EQ,K) IIsIFANi 
7 M(II)b2(M*J) 

HM( IT) bh ( M* J) 

PM ( I T ) e p (M* J) 

PHM ( I i ) bRMO (M* .)) 

GM(II)=GAM(M. J) v - 

PHM ( 1 1 ) sPHl (M*;i) ' t 

UM ( I n s GM (II) «pM (II) /RHM (II) 

VL(II) g (Q(M» J)»(CA»TAN(Sl <M> J) ) *SA» SlN ( PHE ( m* J) ) ) ) 

TF(J,mE. JMAX*1) GO TO 5002 
W0bO(m» J) *SIN(PHF (M* J) ) 

URgQ (M » J) » (COS (PE ) *COS (PhE (M* J) ) *SIN(p E ) Ma N ( S I ( M * J ) ) ) ' 

VBsQ (m* J)'* (TAN (SI (M» J) ) *cOS (PE) -COS ( P hE (M* J) )#SlN(PF) ) 


! f 

aL 


PHEBbaTan(WB/UR> 

(?BaUB7CMTPHEB') 

VL(II) C VB 
j002 CONTJmUE 

SlGIvl v7T(UT= SIGN (1 , , vutiti 
VL(I!)»VL(II)**2 
VT(II)«VTT-VL(II)-UH(II) 

WM-(TlT*VTT^VtTiT) 

13 XHM=0M(II)/UM(II) 

TP (XMM.LT. 1* > GO TO 101 

Bs-SA*TAN(SI (M, J) ) ♦ CA^SlN fPHF (m, J) j 

AsCOs (PHE (M* J ) \ 
rsSORT(VT(II) )/Q(M»J) 

DoS'QPT(A#H*B*"8) 

RM(IT)B0PT*ASIN(SQRT (l./XWM) ) ♦ aTAN(8/a) 
lP(J.EO.JMAx + r)BM(II)sOPT«ASIN'fSORT(l./XMM) >*PHEB 
HTL = Hm (T i ) ♦ ( VTT-VL ( II ) ) /2. 

I ppo I FAN* 1 
IPIbIFP 

rri (k/ 2 ) * 2 .eqtk) iffbifani 

OO 12 LL b 2 * IF 1 
MoLL 

TFlllT/g )“*27EQ , K rWlFF-LL* 1 
KKsN-i 

IF( (K/2)*2.EQ.K) KK*N*1 
IF7 (K/2 ) *2.NE.K.AN0 . N.EQTIFF ) oP«0 • 

TF( (K/2)*2.EQ.K.AND.N.EQ,3 ) nP«0. 

7M(N) a ZM (KK) 

P M ( NT) bPM (KK) -OP 
ALNRbALOG (PM (N) /PM (KK) ) /GM (KK ) 

PHM(KI)=ALOG(RHM(KK) ) ♦ALNR 
RRM (NV B E X PTRHm (N) ) 

GlsSORT ( ( GM ( KK ) ♦ 1 # ) / ( GM ( KK ) •! • ) ) 

Gc2.#gM(KK)/(0M(KK)-1.) 

"O'M (fvl) s^QM (KIC) -G* (PM (N) /RHM (N) -Pm (KK) /RwM (KK) ) 

HM(N) B HTL*< -QM(N))/2, 

GlsUM(KK) «Gl»Gi'*VT(KK) 

PHMTN) «PhM (KK) 

TMrFT (P m (N) *PHm(N) *HM(N) ) 

GM(N)bFGAM(TM,PM(N) t PHM ( N ) ) 

UM(N) bGM(N)*PM(N)/RHM(N) 

VL(N)sVl(KK) 

SIGNVL<M) s SlQNVL(KK) 

V/T ( N ) sQm ( N ) -UM ( N ) 

BM(N)b- 0PT*G1«(ASIN(SQRT(VT(N> /cl) )-ASlN(SQPT(VT(KK)/ci> > > *pM(KK) 

12 CONTINUE 

XMU=SoPT (UM (N) /QM (N) ) 

VMU*ASlM (XMU) 

PHEPbrM ( N) -opt*xmij 
frrsphes-phep 

TF(AbsIERR) .LT. l.E-04) go to u 

ITTsITT*! 

IF ( I TT • GT • 1 5 ) GO TO 102 
IF(ITT«GT.2) GO TO 1A 
FRIbERR 
PETIerET 


PET=1,01*BET 

T?r -3 : - 

102 WRITE (6 f 203) 

203 FORMAT l* ERROR IN BETA SHOCK In COWL«M 
CALL7~pNCH 

J4 DUMi=bET1-ER1* (BET-BET 1 ) / (ERR-FR1 ) 

ERlcERR 
BETl'ipET 
RET=DljMi 
PO TO 3 

15 continue 

00 If, LL*1 * I F 1 
m=LL 

IF( n<72)lT2.E0.K) N=TFF-LL*1 
UM(N) e 0PT*S0RT(UM(N) ) 

16 continue 

ALR (K. J) sAL ( J) 

TBeTAN(BET)*C05(ALP(K, J) ) 

IF(J.EQ.JMAX»1) TBsTAN(BET)*cO«?(PE) 

R EYANTK7J ) m AT A N ( f B ) 

BETA (K * J) *BETAN (K* J ) 

TF(J.eQ« JMA X» 1) ALP(K»j)gATAN(TAN(BET)»6 X) 

ALPN ( K » J) sALP ( K * J) 

IF (J.eQ.JMAX*!) ALPHA (K»J) s&TaN (CX*SIN (BETA (K*J> ) ) 

ALPHAn(K« J) cALPHA (K * J) 

ALP(KCl» J)*AL(J) 

TP=Tan(PHEP)*C0S(ALP<KC1,J) ) 

IF(J.EQ.JMAX*l)TPsTAN(PHEP)*CO<(PE) 

PETAN(KC1*J)**AtAN(TP) 

BETA (kCi.J)bBETAN(KCI, J) 

TF (J.EO.JMAX*!) ALP (KC1 »J) =ATAN (TAN (PHEP)*GX) 

ALPHA (KC1*J)«ALPHA(K.J) 

IP (U.E°. JMAx^I ) ALPHA (KC1 * J) sATaN (GX*S lN (BETA (KC1 * J) ) ) 

ALPHAn(KC1»J)baLPHA(KC1 >J) _ 

ISS«ImAx ( J) 

TM A X ( J ) s IMAX ( J ) ♦ MM-1 

IS(K»J ) «1M AX (J)* 1 

IF ( (k/2)*2.eq#k> i S ( k t j) si max ( ; j ) —MM* 1 
iS(Kc|tJ)BlS(K,J)-2 

TF( (K/?)»2»EQ«k) IS(KC1»J)«IS(K«J)*3 

iKdSS 

IF ( (K/2)*2»EQ»K) IK«ISS*1 

no 29 KKoltlFANl 

IF( (K/2)*2.NE.K.AND.KK.GE. (IFAN1-2) ) f,0 TO \q 
IF( (K/2)*2»EQ.K. AND.KK.GE*3) Go TO 19 

IF ( ( (KK/KP)«KP + JJ) .NE.KKl GO Tn 29 

1 9 P ( I K ♦ J ) rPH ( KK ) 

VTTssr)RT(UM(KK)*UM(KK) *VT(KK) *VL <KK) ) 

CBsCOB (BM(KK) ) 

SB°SIn ( 8M ( KK ) ) 

VVs*Sa*CB* (UM(KK) >-Sb # SA«SorT(VT{kK) Wca*SQRT(VL<KK) )*SIGNVl( 

IKK) 

TF ( J,mE. JMAX*1) GO TO 5003 
(!0bUm (KK)*Sb*SoRT (VT (KK> )*CB 
yggSQpT(VL(KK) )»SIGNVL(KK) 

VVaUB#SlN(PE ) ♦ VB#COS ( Pp 


) 



5003 CONTINUE 

SI (JK* J) S W/VTT 

SI f I K , J ) sAsiKJ ( S I ( I K * J > ) 

WVs-CR*CA* (UM (KK) ) ♦SB*CA*Sf?RT (VT (kK) ) *Sa*SQRT ( V|_ ( KK ) )*SIGNVL( 

IKK) 

UVeSp# (UM(KK) ) ♦C0*SQRT (VT(«K) ) 

IF f J,E0.JMAX#l )UVsU8*C0S(PE >-vB*SIN(PE ) 

oTYKTj'J =SQ’RT <UV*UV*WV*WV) 

PHE (TK# J)=ASIM(WV/Q (IK,J)) 

PHI (T k * J) s PHM(KK) 

7 (Ik, J) sZM(kk) 

RHO ( fK, J) sR H M (KK) 

W (IK, J) bHM(KK) 

TcFT ( pH ( KK ) ♦PhmTKK ) • HH ( KK ) ) 

GAM(Ik* J) sFpAM(T*PM(KK) *PHM(KK) ) 

E ( IK * j ) bSQRT (GflMdK* J)*P(IK* J) /RHO ( I K * J ) ) 

“CAUTTLAM( QTIK, J) * E ( I K * J ) * PHF ( TK * J ) * XpL AM ( IK » J ) * XMLaM if JK * j ) ) 

IF (J.wE. JMAX*1) Go TO 210 
IIW(lK)aO(IK,J)*COS(PHE (IK*J) } 
wW(Ik)SO(IK*J)*SJN(PHE(IK*J) ) 

XW(IK)®R 

_IF(Xji.EO.O.) 

1CAL1 SWALL (R t Z(lK # J) »XW(IK) ,yWf IK) #Fx,FZ) 

IF(Xji.gT.O.) CALL SWaLLi (THX*p,Z (IK* j) *FX, pZ) 

vw(Ik)*uw(Ik)*fx*ww(ik)*fZ 

VW(IK)«VW(IK)*Z(IK*JW)**XJ1 

lF(Xji.EO.O.) 

1THW ( I«) bYW ( IK) 

IF f X j) *GT* 0# T THW(IK) bTHX 
SI(IK,J)bATAN( V w(IK)/Q(Ik*J)) 

210 cONTIkjUE 
I K e I K ♦ 1 
29 CONTINUE 

XMAX(j)alMAX(J)+IFS 

6~C0NTInUE ' 

X J 1 e X jis 
return 

END 


U 


i: 


! 


cURPCuTINE WDIcC(M) 

CO M M ON 7 &7 ~ XTTYH MA XTT H ( 1 o )TR 72(40 71 0 ) * P '(40 • 1 0 ) » PHr (40*10)7 

1 (4n, 10) *SI (40*10) *H (40,10) ,Pwl (40* 10) *RHO(AO*10> *6 AM (40* 10) 

COMMON /B/ PN(40,10) *PHlN(40,lfl) * RHON ( 40 * 1 0 ) * HN ( 40 ♦ 1 0 ) , ZN ( 40 * 1 0 ) 

COMMON /c/ I Max do) * JMA X,ISTaRt,KOUNTf *KOUNtP 

COMMON /D/ UW (40) » V W (40)*WW (40), XW (40), YW (40),THw (40) 

COMMON /E/ UWN(40) »VWN(40) *WWN(40) *XWN(40) ,vWN(40) *THwN(40) 

COMMON / 1 /’ X J 

COMMON /J/ ON (40* 1 0 ) *PHEN (40, lo) • SINN (40# 1 0 ) *XPLaM(40,10) , 

1XMLAM(40*10) *FP(40) *FM(40) *A(4n,10) 

COMMON /K/ RNTnELR 

COMMON /L/ ALPWAN(7*10) *ALPHA (t,10) *BFTAN(7, 10) *BETA (7*10) 

COMMON/M/ I S ( 7 , 1 0 ) 

COMMON 707 ATP (7*10) ♦ AI.PN (7,10) 

COMMON/P/ KC1*KC?*KS1*KS2 

COMMON /R/ J*XCN,XC*XXI* JW* INT. ICOWL.RCOWL 
common /u7 ERZ7Z 
COMMON /V/ XJ1 

COMMON /w/ ISlMEx, IOUMMY, JINT* 70 UMMY (40) ,THWW(2) *JD1 ♦ JD2 

COMMON /$A/ XjfS 

IF ( JW.GT, JINT) XJ1*0. 

IsTS (M, JW) 

if*i " . 

t'-l 

TTTcl 

IF ( (M/2)*2.E0.m) L»-l ' 

K«I-L 

LL=2»L 

RATbO. 

W0U2eC • 

PNKcsO, 

IF(I.eO.IMAx(Jw)«1) GO TO 41 ' ’ 

TF (M.pQ.3) GO TO 42 

PAT«(7N(I* JW)^7N(t*LL*JW) )/(ZN'(ffL»JW)"ZN( T*LL» Jw ) ) 

PNK=PN ( I*LL* JW) 

4 1 PN(I, jW)bPN(I4 L L, JW) ♦RAT*(PN(I*L» JW)-PNK) 

WOU2«wWN(I»LL) /UWN(I*LL) ___ 

W0U1*WWN < I ♦l > /UWN ( I *L ) 

WOU*WOU2+RAT*(WOU1-WOU2) 

GO To 10 

42 PAT1b(ThWN(I)-tH(JMAX) ) / ( THW (~I ) -TH ( JMaX ) ) “ ‘ ~ ' 2 

15=15(3, JMAX-1) 

PN ( I , JW) «PN ( 15 , JMAX ) ♦RATI* (Pn ( I *JW )» PN(T5,JMAX )) _ 

p N (K , jW ) bPN ( I , JW ) 

10 continue 

THX = ThWN (II) *x j 

THDUMbThWN ( 1 1 ) 

YWN(ii)=RN*SIN(THX) ♦THWN(II)»(T,-XJ) 

XWN(TI )eRN»COS(TMX) t 

IF(XJi,EO.O.) ! 

lCALL SWALL(RN*ZN(II*JW) *XWN ( I I ) * YWN ( I T ) ,FX,pZ) 

IF ( X Jj «GT* 0 * ) CALL 5WALL1 (THDUm,RN*ZN( II * JW) *FX,FZ) _ . 

IF(M.nE,KC 1,AND.M,NE.KC2) GO TO n 

Cl*T fi N(BETAN(M,JW) ) *COS ( TWX ) ♦T aN(ALPN(M*JW)) *SIN(THX) 

C2b-TaN ( bETAN(M,Jw) )»SlN(THX)*>fAN(ALPM( M,Jw\ ) *COs (THX) 

ZNXJsj. 


r 

l 



IF(XJt,GT.O.) JNXJsZNUI, JW) 

W0U«(Cl*FX»'C2*2NXJ )/M.-FZ*c2*ZNXj ' ) 

11 vO|JbFx + wOU # Fz 

TF (Xji *GT» 0* ) vOUsVOU*ZN ( 1 1 , JW) 

7'SL*Z(Il*JW) 

USLsUW<II> 

VSL*VW(II) 

WSL=WW(H) 

XSL»Xw(II) 

TAUCsvOu 

TTsl 

TF(M.pQ,KCl*0R,M.EQ.KC2) GO TO 40 
60 CONTINUE 

IF (XJ1 •EQ*0, ) 

1CALL SWALL (RfZSLfXSLfYSLtFXSL^ZSL) 

IFf Xj j » GT. O.) CALL SWALL1 (THSL .R»ZSLtXSL«F7SL) 

DUMb (wOu*WSL/USL) /2. 

7SLTb 7 N ( I , JW) -nUM* (XWN ( I ) -XSL> 

PATB( 7 SLT-Z(I»jW) )/CZ(I+L*JW)-7(I#JW) ) 

WUSL«TAn(PHe ( I * JW) ) *RAT» (TAN (PmETI ♦L* J«T ) -TAN (PHE < I » JwVV) 
UleG(l»JW)*COS(PHE(I*JW) ) 

U2*G f I ♦ L • JW)*COS (PHE (I*L, Jw) ) 

USL=Ui*RAT<»(U2-Ul) ' "" ~ 

WSL b USL*WUSL ; 

VU)*TaN(SI (I» jw) ) /COS (PH e ( I * JW) ) 

VU2*TANTsTCI*L.JW) )/COS(PHE(I*! .Jw) ) 

VUSLsvUi *RAT« (VU2-VU1 ) 

VSL=VUSL*USL 

ERbabS( (Z'SLT-ZsU/rZ(I*L*JW)-Z(T*jW))V ■ ' ~ *~ 

TF(ER.LT.ERZZZ) GO to 40 

7SLb 7 sLT 

ttb i t ♦ i " r 

IF(IT.LT.IO) Go TO 60 l 

WRITE (6* 1000) 

oo o Format r* error in iteration loop in woisc*) 

CALL PNCH 
40 CONTINUE 

IF (M.e0.KCT.0R.M,EQ*KC2) RATsO. " " 

PSL S R ( I I » JW) ♦RAT*(P(!I*L*JW)-P(II*JW) ) 

H5L B H( II tjW ) »R AT*(H(II*LtJW) »H( T I > JW) ) 

RHOSLbRhO(I1* JW) ♦RAT*(RH0<II+L. JW) -RHO (II » JW) ) 0 

PHlSLsPHI (II*JW)+RAT*(PHI (II*L.JW)-P hi (I lfjw) ) 

TSL*FT(PSL»PHISL»HSL) 

GAMSL=FGAM(TSLtPSL*PHISL) 

PHIN(II,JW)«PHISL 

RHON ( 1 1 » JW ) gRHOSL* (PN ( 1 1 1 JW) /PRt )«» (l./GAMSi ) ■ 

VVSLbUSL*USL4VSL*vSL+WSL*WSL 

VVC=VVSl*2.4GAMSL/ (GAMSL-1 • ) * (pSL/RHOrL-PN ( 1 1 f JW) /RMO n ( 1 1 » JW ) ) 

MTSL bhS L4,5»VV<;L _____ , • 

HN(II, JwT^HTSL-.5*VVC L 

UWN(li)BSORT(VvC/(l.+TAUC*TAUC4WOU*WOu) ) 

VWN ( I T ) =UWN ( I I ) *TAUC 
WWN ( T I ) bUWN ( 1 1 ) *WOU 

PHEN(jIijW) sWOt)/ (COS(THX)4VOU*SlN<THX) ) 

PHEN(iI*JW)bATaN (PHEN ( 1 1 « JW) ) 

VB*V WN (TTT^COS ( THX ) -UWN ( I I ) *SlM ( THX ) 


I 



! IBrVWN) ( 1 1 ) *SIN ( TMX ) *UWN ( 1 1 ) *eO«; { THX ) 

WRsWWn (TT) 

ON ( I I ♦ JW) sSQRT ( WR*WB*UB*U8) 
5?INN(lI,jW>sATAN(VB/QN(IIf JW) ) 

ITT * If T *'l 
TI=I-1 

TP (ITT*GT.2) GO TO 80 

fF ( M , nE ,~KC1 • AND • M . NE , KC 2 ) CALL HSHOCK (M* JW* jw* 1 ) 
TF (M,pQ,KC1.0R,M,EQ.KC2) GO TO 10 
80 Xjlcxjls 
RFTIJWn 
FNO 


SUBROUTINE PLANES(IND) 

COMMON /A LLRl/ AN(40*10) *TN(40.10) *6 AmN( 40*10) *XPLAMNf40«io) * 

IXMLAmn ( 40t 1 0 ) 

COMMON /B/ PN(40«10) » PH I N ( 4 0 » 1 n ) *RHON(40dO) *HN <40* 1 0 ) *ZN (40 • 1 0 ) _ __ 

COMMON /JF/ JFTNAL 

COMMON /A/ X1,THMAX*TH(10) *R * Z ( 40 # 1 0 ) * P (40 * 1 0 ) *PHp (40 * 1 0 > « 

1 Q(4Q t lQ)»SI (40*10) »H(40»l Q) t P m 1(40 *10) *RHO(40«l0) ,QAM(40,i0) 

COMMON /C/ IMA v ( 1 0 ) * JMAX * ISTaRt , KOUNTF * KOUNTP 

COMMON /H/ ISIM 

COMMON /J/ QN(40*10) » PH EN(40*U) »SINN (40*10) ,XPLAM(40. 10) * __ 

1XMLAM (40*10) *FP(40) *FM(40) *A(4o,10) 

COMMON/M/ I S ( 7, 1 0 ) 

COMMON /R/ J*XcN*XC*XXI*jW» int.icowl«rcowl 
COMMON /S/ Rl .KOUNT * KOUNTS* I cOu|_T 
COMMON /V/ XJ1 

COMMON /w / ISIm Ex*ID UMMY* JIN t*7 OUMMy( 40) *THww(2) * JDl » JD2 
COMMON /IQ/ NUMEXP*ZSAV 

COMMON/PS/ZR (40*2) *PR (40,2) ,0R (40,2) *uR (40,?) ,SIR (40*2) *RHOR (40,2) 

1, PHI R (40,2) *PHFR (40*2) ,ThR{2) ,THWR(40) 
common /SPE/ KOUNTC 
COMMON /PL/ DElTH 

IF < I Nn*EO«°) ZqUMM Y(I) =Z( 1 * J I Nfj 

IFTIND.EQ.I) ZOUMMY(1)sZN(1*JInt) ' " ‘ r 

J1=JInT 

J2=JImT+1 

IMAXjalMAX (Jl) +1 

DO 461 IbNUMEXP*IMAXJ 

Lei 

?X*Z ( i * JTNT) 

IF ( lNn«EO, 1 ) Zx«ZN(I*JINT) 

TFfZX .Gr.ZSAV) GO TO 46* 

~46T CONTINUE ‘ ~ f 

462 IDUMMY e L-l 

IF(lNO*EO.l) GO TO 34 
DELTHbIOOO, 

DO 1000 JsJ2*JmAx 
!=JMax*2-J 

IF ( JMaX.EQ, JW) lel-l 
OEL B 7 (2* J) 

- IF (XJi .GT.O, ) pELbA T AN(DEL/ZDUmmY(I) ) 

IF ( DEL • LT • D^LTh ) DELTH b DEL II 

looo continue 

DELTH-, 9*DELTH 

IF (DELTH. G'T*TH ( JTNT) -TH ( JINT-i ) ) DELtH«TH(JTNT)-TH(JlNT-l> 

34 CONTINUE 

Z DUMbD E LTH 

ZDumsbZDum 

J*1 

DO 26 Isl*NUMExP j 

IF ( X J) ,GT, 0. ) TDUMaZOUMMY ( I ) *T« N ( ZDUMS ) ^ 

jMe Jtd- 1 ♦ 1 

CALL TBL (ZO UM,P R(I,J ) , SIR ( I , J) ; mR(I*J ) »PH I R '( I , J ) , QR ( I , J ) * PHE R ( I , J ) 

i,RH*GA*THX*JM.IMAX(JM) ,2) 

RHOR ( I * J) eRHEQ f HR ( I * J) » PR ( I « J ) PHlR { I , J) ) 

TsFT ( pR ( I * J ) « PHlR ( I * J ) * HR ( I , J ) ) 

TRWR(f) =F^SMTT7PR(T.J) *PHIR(T, J) ) 


I 



7P(I,J)s7DUMMY(I) 

I'FTX j r. G T . OT) z R ( x , J)sZR(I . J Y/ r 0 S ( Z D Um S ) 

IF(I.mE.I) GO tO 1500 
IF (ISlM.fQ.l > GO TO 1500 
xT - p ■ 

IF(Xji'.EQ.O.) call SWALL(R*ZOUM,XT*YT,FXtFZ^ 

IF C X J 1 *GT • 0 • ) CALL SWALLl (THx,o # ZOUM,rX,FZ) 
TS7 B ro^fPHER77T^)r*FX*5lN(PHFR)T#J)) #FZ " ” 

SIR(I*J)«ATAN(TSI) 

1500 CONTINUE 

0 1 bOR ( I , jr*COS >PHEP ( I , J) ) 

IF (Xjj.GT.O.) GO TO 2001 
VlsOPfl, J)*SIN(PHER(I* J) ) 

Wl s»OR ( I * J) *TAN ( SIR ( I * J) ) 

GO TO 2002 

2001 WT=QR(I,J)«SIN>PHER<I*J> ) 
vt=or ( I * j) * tan (Sir ( i * j) ) 

VleWT*COS (ZoUM?) ♦VT*SIN(ZDUMS) 

Wle-VT*COS(ZDUMS) ♦WT*SIN(ZDUMS> 

2~0~02~CONTTmUE ~~~~ — ' - - - — 

OR(I* j)tsSQRT(Uf*Ul*Wl*Wl) 

PHER(i*J)°ATAN{Wl/Ul) 

S I R ( I , J ) b ATAN j v 1 /QR ( I * J ) ) 

26 CONTiwUE 

J« 2 

no - 1 0 0 1 I*» 1TI OIlMM Y " 

TF(lNn.EO.O) Call TBLDUM(Z (T.JINT) *PP(I*J) ,SlR(ItJ) *WR<I*J ) *phtr 
1 (I*J) ,OR(I*J) tPHER ( I * J) *RHOR(I,J) ,THWR(I) •1«IDUHMY«X) 

I F ( I Nn •EOTT) c ALL Tat OUM ( ZN < I * . ji NT > • PR~< I * J ) Ys I R ( I . J ) * H R <1 * J > * PH I R 
1 (X* J) ,QR(I* J) « PHFR ( I * J) fRHOR(I’.J) ,THWP(I) *1, IDUMMY.T) 

IF(lNn.EQ.O) ZR ( I *2) «Z ( I » JINTS 
IF rfNf)TE07TJ ZR ( I « 21 bZN ( J t JINT l 

1001 continue 

THR (?) *TH ( JINT) ♦OELTH 

returm ' 

FND 




SUBROUTINE ALWDAP(M) 

dOMMON / a /XT* TH ma X»T H ( 10>YR“~ *Z(40*lO) »Pf40*l0) »PHp(40» 10)» 

1 Q ( 4 ft , 1 0 ) *SI (40*10) * H { 4 0 * 1 0 ) ♦ Pu I ( 4 0 » 1 0 ) *RHO >40*10) *QAm( 40»10) 
COMMON /B/ PN (40*10 > *PHlN( 40* lft) *RHON(40*l0) *HN (40 ♦ 1 0 ) • ZN ( 40 * 1 0 ) 
COMMON /L/ ALPhAN ( 7*10) *ALPHA<7,10> *BeTaN(7,10) .BETA (7.10) 
COMMom/M/ IS (7. 10) 

COMMON /0/ ALP (7 • 1 0 ) * AL^N ( 7* 1 0\ 

COMMON /VI/ ISIMEX, IOUMMY, JlNT.^nUMMY (40) * THWW ( 2 ) . JDl * JD2 
COMMON /IQ/ NUMEXP.ZSAV 
COMMON /V/ XJ1 
JUJInT-1 
.JPsJTnT 
J3» JInT ♦ 1 
J4e J I mT ♦? 

iuis'(M, ji) 

I2«IS(M*J2> 

1 3*1 S ( M* j3 ) 

T4slS'(M f J4) 

P 2 a Z N ( 12, J2) -ZSAV 
P'3«ZM (13* J3 ) 

PQ2* (?N(I2* J2)-2N(I1* Jl) ) / ( th ( J 2) -TH ( Jl ) ) 

RQ3= (ZN(I4* J4)-ZN(I3» J3> ) / (TH ( J4) -TH ( J3) > 

F 1*1 ,<707963 

P2 B Fl*Fl 
AL3 «Ro3 

" al?bro2 r ~ ~~ ~ 

ALPN(M* J?)e A TAN(AL2) 

ALPN(m*J3)«ATAN(AL3) 

A l PHAN ( m * J2 ) WAT AN (AL2*C0S ( BET An f M, J2) ) ) 

ALPHAN (M,J3) aATAN (AL3*C0 S(BETAn(M,J3) ) ) 

RETURN 
FAD 



SUBROUTINE addsur 

— C'O M M 0>r 7 A'LCR r/~A W ( 4 0". ro ) VT Kl ( 4 0 1 0 ) • s A M N ( 4 0 * 1 o > ♦ X P L A M N '( 4 0 ♦ 1 6 ) * ~ 
1xmlamnUo»1o> 

COMMON /TEM/ T(40,10) 

— C 0 M M 0 N~ 7 a 7~X1T T H M A X f T H’( 1 o) * R »Z(40.l0> »P(40*l0> *PHf(40»1o> ♦ 

1 (5(4n f l0>»SI(4D»l0)*H(40fl0)*PMr(40»l0) *RHO(4O*l0) *GAm(A0*10) 
COMMON! /B/ PN(40*10) *PHIn<40,1o) *RHONf40»l0) ♦ MN (40 ♦ 1 0 ) , ZN ( 40 * 1 0 ) 
~COMMON,“/r/“TMA^XTll))TJMAX7ISTART,KOUNTF^KOUNtP 
COMMON /D/ UW ( 40 ) * VW (4o>»WW (40)»XW (40), YW (4o)»THw (40) 
COMMON! /J/ ON(40,10) *PHEN(40,lr!) ,SINN f 40,10) ,YPLAM ( 40 f 10) , 

1XM rA'MT4oTr017FP'( 4o )TF M (4o)7 A f4 nTl 0 ) " 

COMMON /R/ J»XcN»XC*XXI»JW»InT«ICOWL»PCOWL 

common /L/ ALPhAN(7»10) ♦ALPHA(7,10) *BfTAN(7,10> »BETA(7,10) 

_ com mow MT~rsT77nr) ~ 

COMMON! /O/ ALP(7» 10) »ALPN(7«10) 

COMMON /$/ RI*KOUNTtKOUNTS»lcOwLT 

COMMON /VI7 - ISTmEXTIOQMM V TJIN t , 70UMMY (40 ) »THWW (2) ♦ JDl * Jp2 

common /TQ/ numExp,zsav 

COMMON! /JF/ JFTNAL 


OELTh=TH ( JMAX) .ThTJMa'X- 1 ) 
IToO 

IMAXjalMAX ( JW ) 


DO 5"lo IbITIMaxJ 
TESTbTHW ( I ) -TH ( JMAX) 
TESTbtEST/DELTW 


IF (TFST.GTT2.0) GO~TO 520 
IF(TEST.LT.0.5) GO TO 1 00 
GO TO 5lo 



520 T T«lT + 1 
510 cOMTTnUf: 


IF (It.EO.IMAx (,JW) ) GO TO 502 
GO To 600 
100 JMAXbjMaX-1 

JWs J ty.l 

JZ=Jnil 

TF (ICOWLT.EO.O) GO TO 505 
no 3o Ic3,NUMEXP 
30 7 DTjM m yTTTT) = z OT iMMyTI") 

NUMEXP«NUMEXP-T 
GO To 505 

5F2 IF ( Jw.LT. JFTNAL ) GO TO 36 
WRITE { 6 , 37 ) 

37 FORMAT <* PROGRAM ATTEMPTING TO aOD REFERENCE PLANE - OlMENSlON TOO 

: i small*) 

C CALL PNCH 

C STOP 

GO T 0 6 0 n - - 

36 CONTINUE 
jMAX*jMax* 1 
jWejwTl 

IMAX ( jW) elMAX ( JW»1 ) 

JZsJw.l 

IF(ICO W CT*EQ.O) GO~TO 505 
DO *0 Is2,NUMEXP 
II = NUmExP-U2 
1 1 1 B I ! ♦ 1 



40 7DUMMv<IIl> =ZDMMMy (II) 

MUMEXpaNUMEXp+l 
505 CONTINUE 

TH ( JW) *TH ( JZ) 

I F ( I C 0 * L T . E Q . 1 ) f MAX J b I M A X J * l 
00 53? IsltlMAXJ 
7<I»Jw)sZ(I,JZ) 
p(i.jw)spn.jz) 

PHE<I*JW)sPhE(I*JZ) 

SI ( It JW ) bS I (I t JZ) 

M ( I t jw ) SH ( I t JZ ) 

0 ( I t JW) so (I t JZ) 

PMI (I, JW)sPuI (I, JZ) 

PHO Cl « Jw ) sRH'o ( 1 1 JZ ) 

l~JU 

T ( T tl) a ET ( P ( I , L ) » P HI ( 1 1 L ) ♦ H J 1 1 i ) > 

GAM ( I L ) sFG AM ( T ( 1 1 L ) t P ( I , L) t PH T 1 1 , L ) ) 

A (ItL) a SQRT (GAM(TtL)*P(ItL)/PHO(I.L) ) 

CALL xLam(Q(I,l> tA (ItL) «PHE(It| ) tXPLAM(ItL) ,XMLAM(I,L) ) 

535 cONITinOE 

TFflCoWLT.EQ.O) GO TO 20 
HO In 1 12 s l * 7 
ALP ( I J 2 * jW) «ALP ( 1 12 * JZ) 

ALPHA > 1 12, Jw) sALPHA (112, JZ) 

PETA(ilp*JW) bbfT A ( 1 12, JZ ) 

ro TS(n?*jw)=is(Ti?t jZ) 

20 CONTINUE 

TF(JZ.GT.JW) GO TO 601 
TH ( JMaX) sTH< JM aX-1 ) ♦DELTh 
IF ( ICOWLT.EO. 1 ) ZDUMMy(2)bzDuMmy(3)-0ELTH 

JaJMfly 

j 1 S Ja» ^ 

DO 5^0 IsltlMAVJ 
7 ( I » J) ®Z ( I * JW) 

TF(ICoWLTtEQ.l) Go TO 31 

IF(I.eQ.I) CALL PWALL(RtTH(J) tY(ItJ) tOUMtDUMl ) 

TF(I.fQ,IMAx(Jw) ) CALL TwALL (R. TH ( J) *7 ( I t J) , DUM* DUMi ) 

GO TO 3? 

31 IF(I,nE, 1) GO TO 32 
7(I*J)*0. 

CALL tBL (ZOUMMy (?) ,P ( I* J) tSI { I. J) ,H ( I , J) , PHI ( I » J) ,0(1 # J) ,PHE ( I , 
1 ,RHO(j »J) ,GAMX,THX» JiNTtIDUMMY,?) 

Ul®Q(I»J)*COS(PHE(I»J) ) 

VlsO ( T , J) *TAN ( si f I » J) ) 

WlsQ(itj)*SlN(PHF(I*J) ) 

VTb -W j 

WTsVl - - 

0(1, J)®S0RT(U1*U1*WT»WT) 

PHE(!,J)bATAN(WT/U1 ) 

SI ( I, j) s aTAN (VT/O ( I* J) ) 

GO TO 33 

32 CONTINUE 

P A T b 0 p LT H /XT HW ( I ) - T H( JMAX- 1 ) ) 

P ( I * J) bP ( I * J1 ) *RAT* (P (ItJW)-P ( I ♦ J 1 )) 

SI ( I * J) sSI <I,J1)4RAT*(SI (I,.IW)-SI (I*J1)) 

0 Tt,J)bQ (I , J’l ) ♦RAT * ( 0 ( I , JW ) -Q ( I * J 1 ) ) 



H (I,Jf )*RAT«(H fltJl)) 

PHE(T‘f J)BP'HE(I*Jl)*RAt*TPHE-(T#.lW)-PHE-('X*Jl) ) 

PHI (I, JjaPHId, Jl) *RAt#(PHI {I, J W )-PHI<I, Jl) ) 

RHO < I . J) sRHO ( I , J\ ) ♦RAT* (RHO (I* JWV-RHO ( I • Jl ) ) 

33 rONTjKjUE 
La J 

T(I*L> B PT(P(I*L> «PHI <I«L) *H(I*t ) ) 

GAMT J ,L) eFGAM (T ( I7L) »P ( I *L) *PHT (MM 
A ( T * L ) e SGRT (GA m ( I «L) *P < I *L) /RHg ( I *L) ) 

CALL xLAM{Q(I»l) *a(I*L) «PHE(I*i') #XPLAm(I»L) •XMLAM(I'L) ) 

TF CI.NE.ISritJl ) *aND.I.Ne*IS( 3, jl) r GO TO 540 

M c 1 

IF(I.eQ,IS(3»J) ) ) M =3 

TANALP*TaNTalP(M,j 1) ) ♦RAT*(TANf ALP(M* jW) ) -TaN < ALP (M, J)) ) ) 
7(I*J) s Z(I*Jl) + (TAN(ALP(MtJl))*TAKI ALP )*DELtH/?. 

7(1-1 ,J)aZ(I»J) 

PETA ( m * J ) » ATA7JTT A N (BET A <M» Jl ) > *PAT* ( TaN (BET* <M# JW) )-TaN(BETA (M* Jl 
1 > ) ) ) 

TS(M,j)aIS(M,jf ) 

A L P ( M « JT* T A Kj A L P 

ALPHA (M, j)«ATAN (ALP (H» J)«COS(BfTA (M* J) ) ) 

A L P ( M * J ) bATAN ( aLP (M. J) ) 

IF<M # p;Q. 3) GO TO 4021 
CALL MSHOCK (M,J.J,1) 
p (I-l»J)aP N(I-lfJ) 

O <1-1 »J)*Q N(I-I.J) 

H ( 1-1 * J) »H N(I-1»J) 

T N(I-ltJ) 

A f i-l»J)=A N<I-1»J) 

SI (I-1 ,J)bStN N ( 1-1 f J) 

PHE (!■] » J) aPHE N(I«1»J) 

PHI (I-l»J)ap H l N ( 1-1 t J) 

RHO (I.1 »J)bRhO N(I.lfJ) 

GAM ( I-) « J) bQaM N(I»1 t J) 

y PL Am } 1-1 » J) sXPL AMN ( 1-1 * J) 
yMLAM(I-l*J)BXMLAMN(I-l*J) 

GO TO 540 
4o?l CONTINUE 
540 CONTINUE 
GO TO 600 

60 1 TFTIMaX ( JMAX) .EQ.IMAX < JW) ) GO TO 600 
DO 6n? Ib1»IMAxJ 

CALL TBL (Z(I »JW) ,PN(If JM aX) ,SImN < I # JMa X) *HN(I*JMaX) »PhIN (I , JMAX) * 
lO^n.jMAXrTfHENMfJMAX) f RHON ( I . JMaX > •0A*THX# JMAX, JMaX( JMAX) tl) 

602 CONTINUE 

DO 603 Isl t IMA xJ 
7 TYf JMAX) sZ (I*JW) 

P ( I « JM AX ) aPN ( I * JMAX ) 

H ( I • JM AX ) =HN (IfJMAX) 

0 Li , JMAX) sQN ( I»JMAX ) 

SI ( I » JM AX ) bSInN ( I » JMAX ) 

PHE (I, JMAX) bPHEN(I, JMAX) 

PHI (J. JMAX) sPHTNfl* JMAX) 

PH0(I, JMAX) bRhoN(I* JMAX) 

L®JMAX 

T(I*L) e FT(P(I»L) *PHI < I *L > • H ( T * i > ) 


GAM(I,L)bFGAM{T(I«L) tP ( I tL) *PH t ( I »L) ) 

A ( I".Tr=SORT’( G A^riTL) *P ( i rU /RHo ( I ♦ L ) T 

CALL xLAM <Q ( I ♦(_ ) * A ( I ♦ L ) tPH£ (I*i ) *XPLAM(ItL) ,XMLAM(I,L) ) 
603 CONTTMUE 

IMA X ( jMAxV=IMAx ( Jw j 
600 CONTINUE 
RETURN 
FMD 




SUBROUTINE EMBFO 

COMMONT^A/XXVTHMA XVTH (lc ) *R .Z (40.10) «P(40«l6) .PHf <40*To> 

1 O(4Q.l0) »SI (40*10) *H(40.l0).PuT(40.l0) .RHOf4n*l0) .GAu(40»10) 
COMMON /C/ IMAv(IO) * JMAx. ISTAR t * KOUNTF* KOUNTP 
COMMON 7J/ ON(40*10) .RHEA! (40 » 1 M *SlNNf40*l0l * XPLAM (40 • 10 ) * 
lXMLAMf4o,10),Fp(40),FM(4o),A(4n t 10) 

COMMON /L/ ALPHAN(7*l0) * ALPHA (7*10 ) *BfTAN(7*10) .BETA ( 7 , 1 0 ) 
COMMON/M7 rS(7»10) 

COMMON /O/ ALP>T«10) *ALPN(7*10) 

COMMON /R/ J*XCN,XC*XXl*JW,lNT.ICOWL*RCOWL 
common /W7“IS'IMEXTII)UMMY, JINT»70UMMY (40)VTHWW (2) « JOl • JD2 
COMMON /S/ RI.kOUNT.KOUNTS, JcOwlT 
OATA tM2/0/» IM7/0/ 

OPHES *77575773 

DO 500 Msl»7 

IF (M.mE.2.AND.m,NE. 7) GO TO 50n 
. fFji m? , E 071 • And • M 7 EQ , 2 ) go to soo 
IF (IM7.F0.1.AND.M.EQ.7) GO to boo 
nELJe] «E*06 
00 6 J*l.Jw 
OELRRsl.E+06 
TMbImaX(J)- 1 
DO 1 I«*l * IM 
nZeZ(IMtJ>-Z<TtJ> 

IF (DZ.LT. 1 .t-04) GO TO 1 
OZLAMsXPLAMtl, j) m xPLAM (1*1, j) 

IF (M.fO. 2 ) DZLAMsxMLAMd, J)-xMlaM(I*1.J) 

IF(DZlAM.LT.I.F-IO) go To 1 

OIsD7/DzLAM 

IF(Dn 1 » 1 * 7 
7 TF(DI-DELRR) 17.17*1 
~nOEURR=Dl 

TS(M.j)b!+1 
IF(M,fO # ?) IS(M*J)»I 

1“ continue 
OJcDflRR 

JJ (D J-D EL J) 5.5«ft 

5 nELJaoJ 

jSs J 

6 CONTINUE 

TF(DFLJ.GT.10. ) GO TO 502 
KsTS (M* JS> 

I >-1 

TF(M.fQ.P) Lai 

PHETcxPLAM(K. JS) -XPLAM (K^L.JS) 

IF(M,eQ.2)PHETbXMLAM(K*L. JS)-X u» AM(K» j SJ 
IF (Ars (PHET/OPwES) ,GT, 1.) GO Tn 50l 
GO To 502 

501 JgJS 

WRITER. 503) 

503 FORMATUH1) 

IF (M.eQ,7) GO TO 506 

WRITE (6.505) Is (M*J) *J 
505 FORMAT(10Xr*DOwNpuNNlNG EMBEDDED S h OCK FOuNO AT I a «,I3.6X* 

1*J = »♦ 12) ; 

GO TO U 



506 WRITr (6,508) Is<M,J),J 

50 8 FORM AT ( 1 0 X,WPpQWI NG~EMb EDDED SHOCK FOUND A T I = # 1 1 3 , 6 X , 
1*J = **I2) 

11 continue 

TF (M.fO.?) I M2r 1 
IF(M,fQ.7) IM7s1 
502 00 50P Js 1 » JW 
509 I S ( M * j ) b 0 

500 continue 

RETURN 

END 




SUBROUTINE DERTVN(MM) 
common /IQ/ NUmEXP *ZS A V 
common / wr/ i wrap 

common /ALLRl/ AN (40 * 10 ) «TN(a0*10) *GAmN < 40 » 10 ) * XPLAMN ( 40 * 1 0 ) * 

1 yMLAMN (40* TO) 

COMMON /ALLR2/ PON (40 ♦ 1 0 ) • HON ( 4 0 » 1 0 ) * oQN (40 , 1 0 > tSI QN ( 40 * 1 0 ) * 
IpheQm ( 4o, 10 ) fpMlON (40* 10 ) *RhoQm f4o*10) *GAMQN (40 ♦ 10 ) 

COMMON /A/ Xl*THMAX*TH(l0) ,R *Z(A0, 10) ,P(40*lfl) ,pHp (40.10) * 

1 0(4o»10)»SI(40*10)»H(40»10)»P^I(40*1o) *RH0(40*l0) *GAm( 40*10> 
COMMON /B/ PN(40,10) *PHlN(40,lft) , RHON (40* 10) *HN (40 • l 0 1 * ZN (40 * 1 0 ) 
COMMON /C/ IMAX (10) * JMAX,rSTART f KOUNTF*KOUNfP 
COMMON /T)/ UW (40 ) * VW (4o)*WW (40)*XW (40)*VW (40)*THw (40) 

COMMON /E/ UWN(40) »VWN(40) *WWN(40) *XWN(40) *yWN(40 ) *THwN{40) 

COMMON /H/ I$lM 

COMMON /I/ XJ 

COMMON /J/ ON(40*10) *PHEN(40*10) *SINN(40*10) *XPLAM(40*10) * 

TXMLAM (4ft,r0) ,F"P (4'0) *FM (4oT*A'(4ft,10) 

COMMON /K/ RNfnELR 
COMMOn/M/ IS ( 7* 1 0 ) 

_ C0MMON7N?~ST Q74 0n 0) *PO <4 0,1 0 ) . PHEO ('47)71 0 ) ,NQ{4 0,10) »PHIQ( 40 * 10) , 

1 OQ (4(| , 1 0 ) * RHOQ (4q * 1 0 ) *GAMQ(40»T0> 

COMMON / Q/ XCOWL 

common /P/ j»xon,xc*xxi»jw*int,icowl*pcowi. 

COMMON /W/ ISIMEX, IDUMMY, JlNTtrroUMMY (40) ,ThWW(2) *JD1 • JD2 
COMMON /IB/ lMAxj*ISl • IS2* ISLT, ISL2 
COMMON /IS*/ JCALCVTSWEEP*XINSR(10) *Xp 
COMMON /ISW1/ TFR 

COMMON /ZNOERV/ DPZN (40 ) , DUZN (40 > *DVZn ( 40 ) tOWZN (40 ) 

common /JF/ JFINAL " 

COMMON /S/ RI»kOUNT*KOUNTS,IcOw L T 
COMMON /PL/ DE TH 
COMMON /V/ Xjl 

COMMON/PS/ZR(4o*2) *PR(40,2) ,OR(40*2 ) *hR( 40*?) ,SlR(40*?) *RHOR(40,2) 
1 * PHI R (4o*2) »PHFR (40*2) fTHR(g) , thWR(4o) 

COMMOM/PSS/ftAMRR (40) 

00 10 *Jel,JMAX 
JSHOCsO 

IF(J.oT. JCALC) GO TO 10 

IF( J,fO,JCALC,AND.IFR,EQ,1) GO tO 10 

JMb J„] 

JPeJ*) 

IF ( J.fO.JCALC) JPbJ 
IF(J.eO.l) JM*jP 

1 F ( I S I M7E Q • 1 . A ND“. J • E 0 . JM A X ) jPa jM 
IMAX J bIMA A ( j j 

no 2o 1*1 * imax j 

THjleTHWN ( I ) 

IF(JP.Ne.JW) ThJIbTH(JP) 

IF(ISIM.FQ * 1.AN0»JP»EQ»JMAX) TmJ I*TH (jMaX) 
if ( J.fQ.JI^T. AND.I.LE.IDUMMY)Go TO 20 
oz*ZN(i f j)-zn(i.jm) 

0 TH*Tm(J)-TH(Jm) 

OUMZb) . 

IF(XJ 1 .GT.O,) OUMzb, 5*(ZN(I, J) *zN(I* J m) ) 

OUMRb 5 • 

IF(Xj.GT.OT) OIJMPsR 



n$l*SoRT (DZ*DZ* <DTH*DIJMZ*DUMR ) **2) 

TF (J.EQ.JINT. AND. I, GT.IOUMMY) r,b TO 9ol 
OZ*ZN ( I » JP) -ZN ( I « J) 

OTH*THJl -TH ( J) _ 

nUMZet • 

IF (XJi .GT.O. ) DUMzs.5*<ZN(!*J)*7N(ItJp) ) 

OS2=SORT (DZ*DZ* <DTH*DUMZ*DUMR y**2> 

TFfJ.eQ, JINT+1) GO TO 900 

nlaDSl/DS2 

02=DS2/DS1 

D3*DT-D2 

GO To 902 

901 01*0. 

JP*J 

02*1. 

0 3=- 1 , 

IF ( I . L T • I S ( 3 » J ) • 1 ) GO TO 909 

JSHOCsl 

JP*J + i 

I A * I S ( 1 « JP ) * I • T S ( 1 * J ) 

RAVb( 7N(I, J)-ZSAV*ZN(lAf JP) )/2. 

0S?sRaV«3,142/R. 

0r*0S'l/DS2 
n2eDS2/DSl 
D3 sD 1-D2 
W~CONT'fNUE 
GO To 9 o2 
900 01*1. 

02*0 , 

03*1. 

IF(I.lT,IS(3, Jj-1) go to 910 
JSR0C*s2 

TB*l5 < 1» JM) ♦I-iSn • J) 

RAV*(ZN(I» J) ♦Zm(IB«JM)-ZSAV)/2. 

OS 1 * o A V * 3,142/?, 

Ol*DSl/DS2 

n2=DS2/0Sl 

03*D]«D2 ' 

910 CONTINUE 

902 CONTINUE 
Mir I 

N* I 

IF(JSmOc.EQ.I) M*IA 
TF(JsmOc,EQ,2) NbIB 
nTHSaOl*THJl-0^*TH ( J) -D2*TH ( JM) 

IF( J,E«. D DTH5*TH ( 2 ) 

IF (TSlM^EQ, 1 .AND, J,EQ. JMax) DTw$=TH ( JmAx) «TH ( JMA X -1 ) 

TF(JGmOc.EQ.I) DTHS«(ZN(I* JI-ZraV ) *3. 142/2.*D1 ♦ ( TM ( Jj »TH ( JM) ) *0? 

IF( JGm O c»EQ« 2 ) DTHS a <TH < JP) -TH f J) )*Dl *ZN ( I , ']) *3. 1 42/2. #p2 

OZ Ss^iaZ N(M»JP)-03*Z N { I * j) •02*Z N(N,jM) 

IF( JShOc.EQ. 1) DZS S (ZN(I, J)-ZNf i* JM) )*D2* (ZN(M» JP)-ZN(I* J) *ZSAV)*D 

11 

TF( Jgh0c,EQ,2) DzS*(ZN( I, J)-z n (IB* JM) *ZSAV) *D2* (zN ( 1 1 JP) -ZN(I*J) )■* 
101 

OP S*Dl*P N(m,jR)-D 3*P N ( I * J) •D2#P N(N,jM) 

OH N(m 7JP)^-D34H NTlT JT^02*H N(N.jM) 



no SeDl*Q N(MtJP)-D3*Q N(I*J)-D2*Q N(N,jM) 
nPHESsDl#PHEN(M» JPi-DSgPHENa* J) -D2 *PhEN(N* jM) 

HPHI SsDl #PH IN ( M« JP ) •D3*P(H IN ( I » J ) “D2 *PH I N { N * JM ) 
nRHOSsDl#RHON(M» JP) -D3*RH0 N { I , jj -02*Rh0N < N, JM) 

DGAWSssDi #GAMN(M» JP) -D3*6aMN (I*.|)-D2*GaMN(N, |M) 
nsi SsD 1#SINN(M* Jp)-03*SINN(I* J) -02 *StNN(N. JM) 

TF(J.fG.I) DS1 SbSINN (1*2) 

T FTISTW • E o • 1 • A NO . J . EQ , JM A X ) DSr Ss-SImN{ I* JmaX- 1 ) 

40 IF(I.fG.J) GO to 50 

TF (I .PO.IMAXJ) GO TO 50 
IF (IcnWL.NE.l ) GO TO 400 

IF(I.lT.IS( 1* J)-MM.OR, I.GT.IS f 1 *J> ) 0 0 TO 400 
np zzn=o. 

OR 7>4 S 0, " 

no Zn« 0 « 
osr zm*o. 

OPRE7m=0. 

OPHI Zn s 0 • 

ORH 07 MB 0 , 

Ogam^m® o» 

GO To 60 
400 continue 

TF(I.eQ.IS( 1 * J) .OR.I.EO.lSdt GO TO 50 

IF(I,fO.IS(3*J) •0R*I«EQ«XS(3 v JwS) GO To 50 

TPbI+i 

TMsI.l “ ’ 

0Z1=ZN<IP tJJ- 7 N(I»J) 
nZ2»7N(I* J)-ZN(IM *J) 

DUDZ1/DZ2 

02®DZP/DZ1 

n3=Dl-D? 

DP ZZN “ (DI # P N { IP »J)-d3*P N(I,J)-D2*P N(IM *j))/D1PD2 

OH ZN «(dT # R N(IP »q3«h N( I,J)-D2»h _ N ( I M * j) ) /D1 PD2 

OQ 7N b(01*Q N(IP ,J).03*0 N(X # J)-D 2 #Q N ( IM *J))/DlPD2 

0PHE7N *<Oi* D HEN(lP *J)-D3#PHEN(I •J)-D 2 *PHEN(IM *J)>/D}PD2 

OPHI7N ®( D1»PHIN (I P « J)-q3 »PHIN(I > J)»Q24phIN(IM #j> ) /D1PD2 

OR HO 7 N s (Dl^RHORTTP ,J)-D3iRHON(i,J)-D2#RHON'(lM .j))/DlPD 2 

OGAM7N *(D 1 *GAMN(IP * J) -D3*GAMN { I . J) -D 2 *GAMN <IM ♦J)>/DlPD2 

OSI 7N e( 01 »SINN(IP ,J)-p3» SlNN(I, J) -D2*S I NN (I M t j) )/Dl PD2 

GO TO 60 
50 CONTINUE 

l.g -1 

IF(I.eQ.IMAXJ) GO TO 100 
no 4?l M b 1 * 7 

T F( (M/2)»2.NE.m.AND.I.EQ.IS(M»,i)-1) GO TO 1 0 0 1, 

TF( (M/2)*2.EQ.M,AN0*I.EQ.lS(M*,n ) GO TO 100 
421 CONTinUe 

_ l g l _ 

TOO IL*I+L 

I2L=I+2*L 

OZ g ZN ( I » J) »ZN ( IL »J ) 

n7L B 7N ( IL *J)-7N(i2L *J) 

IF(APG(D7L).GT.1.E-10) GO TO 5n00 

nEL B 0 , 

GO To 5001 



5000 0EL B D7/07L 
50 0r^nELXF e DEL»DEL 


DELOal • +DEL 
nELL«nELO*DELQ 


OELEs ( 1 

• ♦2»*DEl ) 




OP77N 

=(DElLE*P N(I 2 L ,J>.DELL*P 

N(IL 

* J) *DELE*P 

N(ItJ) )/D 

17/DELO 



t J> ♦DELE*H 


nH ZN 
17/DEuo 

b (DELLE*H N ( I 2 L ,3i-DELL*H 

N ( IL 

N (I t J) )/D 

no Zn 

a (DELLE»Q N(I2L t J) ■DELL *0 

N(IL 

♦ J) +DEt_E*Q 

N(ItJ) )/D 

17/OFlo 





OPHE 7 N 

17/DELO 

b (DELLE*PHEN(I 2L tJl-DELL*PHEN(lL 

♦ JWDELE*PHEN(I* J) ) /D 


rSPHlZN " s '<0ELLE* p HIN(l2L '» JT-DELL*PHIN(Il ♦ J> +DELE*PHIN (I ♦ J) ) /D 
17/DElo 

ORH07N -(DELLE #p HON(l2L t -DELL*pHON ( I|_ ♦ J) ♦DELE#PHON ( I* J) ) /D 

17/DE|,0 

DGAM 7 w a(DELLE*GAMN(I2L , J> „DELL*oAMN ( H, , J) ♦ DEL.EAGAMN ( I * J) ) /D 

17/DELO 

ns!7M a (0ELUE*SlNN(l2L , J) ■DELL*slNNdL , J) ♦DELE*$lNN d * J) )/D 
17/DELO 

_J >0 continue 

P ON ( I • J ) B ( DP s-DP ZZN *07S)/DTHS 

H OM(I.J) = (OH S-DH ZN *(S7 S)/DThS 

0 Om ( I • j ) * ( dQ S-dQ ZN **ZS)/DThS 

si on ( i* j)« (“ost s-dsi Zn *nzs ) /oths 

PHEQN (I t J> B ( DPhES-DPHEZN *r>ZS) /OTmS 

PHlONd* J> b _<DPhIS-DPHIZN *n7 S) /DTmS 

PHOOm ( I * J ) a (b«HOS-0«HOZN *bZS) /DT wS 

(5 AMQm ( I t J) a ( DG AMS-DGAMZN *nZS> /DThS 

20 CONTINUE 

rO^CONTlNUE 

JF(IWRAP.EQ*l)flO TO 955 

IFdCOWL.EQ.l.OR.ICOWUT.EQ.O) GO TO 955 

J2eJl nT 

J3bJInT ♦ I 

JAbJInT +2 

IDUbIdUmmY^I 

A1bZsaV-7N(IDU* J2) 

A2esTH ( J4) -TH( Jg) 

A 1 A2«A 1/A2 
A2 A 1 k A 2 / Al 
A 1 PA? e A 1 * A2 
A 1”2 s A 1 A 2 ■ A 2 A 1 

IJT=On ( Iou* J2) *cOS <PHEN<IdU* J2 ) \ 

VTs-OM(loUt J2)*SIN(PHEN(I0U* Jg) ) 

WTbQN ( I pOVJ2 ) *T AN (SINN (IpUt J?) ) 

OTeSOpT (UT*UT+ wT#wT) 

PHETsaTAN (WT/UT) 

SITsatAN (VT/OT) 

P Qm { 1 * J3) a ( PN (1» JA)*A1A?-PN (1* J3)*A12 -Pn (IDU* j2) *A2A1 ) /A1 Pa2 
M ON (I* J3 ) s (HN (1,J4)*A1A2.HN ( 1 , J3 )#Al 2.HN (I0 u*J2)#A2A1)/A1Pa2 
0 ON ( 1 • J3) a (QN TlfJ4)*AiA2-0N (i,J3)#Al2-0 " T *A2A1)/A1PA2 

SI ON(l» j3)s(SlNN(l*J4)#AlA2«STNN(lf J3)*A12-SI T *A 2 A 1 )/A 1 pa 2 

PHEQNfl, J3 )s(PhEN{1* J4)*A1A2-PweN( 1, J3)*A12_PHET #A2Al)/AlPA2 

PHIQN ( 1 1 J3> = (PMIN ( 1 * J4 ) «A 1 A 2 -PM IN ( It J 3 ) «A\ 2-PH IN ( I DU* J2 ) *A 2 A X ) /A IP 



1 A2 

RHOQN ( 1 , J3 ) = (RwON "(■ 1 • J* ) *A 1 A2-RwnN ( 1 « J3 ) *A 1 2.RH0N ( IDU » J2 ) »A2A 1 ) /A 1 P 
1A2 

GAMOWd ,j3)e(GAMM(l ,J4)*A1A2-6 amN(1 , J3)*A12.GAHN(IDU» J2)*A2A1)/A1P 
1 a 2 

TMAXJ?=TMAX { J2.1 ) 

00 7979 I=1»IHAXJ2 
7 RTtT 1T=Z N(If J2-D 
p P { I » 1 ) sP M(I,J2-1) 

0 Rl!M)sQ N f I « J2"l ) 

H R(T»1)=H N(If J2-1) 

SI P ( I » 1 ) sSlNN ( I * J2-1 ) 

PHIR(T*1)=PHIN(I.J2-1) 

PH E R”( T» rr* P H 2 NT I *J 2-1 ) ' 

RHOR ( j 1 1 ) bRHON (I * J2- 1 ) 

7979 CONTINUE 

0 0 — 7 87 8 “I s 1TI 0T7M M Y 
00 3535 J J® 1 « I M AX J2 
RAMRR ( I J) sTHWR ( I J) 

35 35~TH WRTf^ )eGAMN(TvJ7j2-T) 

CALL TBLDUM { ZN { I « j2) #Pl *SI 1 *Hl ,PHI 1 » OX *PHE1 .RHOl *GAMl ♦ 1*IMAX< 

1 J2 ) »?) 

00 3536 IJ*1»IMAXJ2 
3536 THWR ( x J) bGAMRR f I J) 

CALL TBLOUM(ZN(I, J2) ,P2,Sl2,H2.PHI2,02,PHE2.RH02 f GAM2, 2*IMAX( 

1 J2) »2> 

Ol*THf J2)-TH< J?-l ) 

02eTHR(2) -lH(J2) 

01 02 so 1/02 
02Dlso2/Dl 
D12 bDiD2-D2D1 

D1PD2*Di+D2 ~ 

P GN(I,j2)b(dTD 2*P 2-Dl2*P m { I* J2) -D2D1*p 1)/D1pD? 

H Q m(I > j2)e(QiP2»H 2-Dl2»H m ( I ♦ J2) -D2D1»m 1)/D1PDp 

0 QN(I* J2)*(D1D2*Q 2-Dl2*Q m { I , J 2 ) .D2D l*o D/D1PD? 

SI QNf I.J2)s(DlD2*Sl 2-0l2*SINMfI,J2)-D2Dl*Sl 11/D1PD2 
PHIOM'd, j2)g(DiD2»PHI2-Dl2 »PHlM(I * J2 ) -02D 1*PHI 1 ) /DlPD? 

PHEQM ( I, j2)s(6i02*PHE2-Di2*PHEm( I, J2) .D2D1*pHE1)/D1PD2 
RHOOki (I » J2> * (DiD2*RH02-0i2*Rh0m ( I » J2> -D2D1*RH01 > /DlPD? 

OAMQN d, j2) B([)iQ2»QAM2-D l2»GAMMf I» J2) -D2Dl»fiAMl ) /D1PD2 

7878 CONTINUE 
955 continue 

IF (ISTM.eQ. 1 ) RETURN 
IMXIstMaX ( JW ) -1 
DO 123* Xs2 » iMy 1 

I F (I,fQ.IS(3*JW)-i,0R.I.EQ. IS( 3 • JW_) *0p . I • EQ . I S < 1 » JW ) - \ , OR . 1 . EQ . 

lTS(l« JW) ) GO TO 123* 

TSIbTaN ( SINN(I.JMAX) ) 

THJcTh(JMAX)*Xj 

STHoSiN(THJ) 

CTH*CoS(THJ) 

CPHEPsCOS(PHEN(I,JMAX) ) 

UP1*0n’( I » jHAX) * (CPHEP*CTH-TSI*STH) 

VPleONd , JMAX) « (CPHEP*STH + TSI*rTH) 

WPisQn ( X , JMAX) »Sin (PHEN ( I * JMaX ) ) 

YDUMstHWN ( I ) -THWN ( 1-1 ) 



7DUMel . 

I FTX jITGTTOT: ) 7 0 UM e”CZ NT I ’ # _ J vTT* Z W ( I-lt jw ))/ 2 , 

IF (Xjl .EQ*0. ) vDUM=YWN (I)-YWIM(f-l ) 

DS1s (zN(I» JW)-7N(I.1i JW) )«#2* < vnUM*ZDijM) **2 
DSl=S 0 RT(DSn 
YDUMbTHWN < I ♦ 1 ) »thwn ( I ) 

ZDU^ei • 

IF ( X J] *6T • 0 • ) ZDUM*(ZNn + ltJW)*7N(I*Jw))/2. 
IFfXJl.EQ.O.) YDUM»YWN(I*1 )-YWm(I) 

0S2*(7N(I*lt JW)«ZN(I*JW) )**2 * (vdUM*ZDuM)»*2 
DS?sS0RT(DS2) 

D1«DS1/DS2 
r>2sDS2/DSl 
D3=Di-D2 

DYbTHwN ( J ) -TH ( jMftX ) 

YleTH(J) 

IF (XJ, Gt, O* ) Yl=oN*SIN(Yl) 

IF(Xj.Gt.O.) DY*YWN(I)-Yl 
nUY® (UWN ( I ) -UP1 ) /DY 
DVYB ( vWN ( XT.yp'i ) /DY 
nWYs(wWN(I)-Wpj)/oY 
nP Ye (P N(I*jW)-P N(I* JMAX) \ /OY 
Y3eTHWN ( 1*1 ) 

IF(XJ.GT.0.) Y3=YWN(I*1) 

Y?bThwN(T> 

fFTXJTGT.O. ) Y2*YWN(T) 

YIbTHwN(I-I) 

IFfXj.GT.O.) Y]aYWN(I-l) 

DYSBD1 *Y3-D3*Y2-D2*Y1 
nz SeDl*z N ( 1+ 1 ♦ JW) -03*Z K!(T, Jw)-D?*z N(I-l.Jw) 

OP SeDl*P N(I*1,JW)-D3*P N(f»JW)-D2*P N<I-1*JW) 
DUS«dT*U WN ( I ♦ 1) -r»3«UWN ( I ) -02*UWW ( 1-1 ) 

DVSb 01*VWN ( X*1 ) -D3*VWN ( I ) -D2*VwN < 1*1 ) 

DWSbDt~»WW N ( I ♦ 1 ) -n3»WWN ( I ) -D2«WwN ( I-l ) 

OP 7N<f) a (DP S-DP Y*DYS) /nZS 
DUZN ( T ) b ( DUS-DUY*OYS) / ozs 

DVZN(I>e (DVS-DVY*DYS) /OZS 
n W Z N ( fT a ( D W S - 0 W Y * D Y S ) /D Z S 
123* CONTTMUE 
PFTURm 

FNO ~~ “ ' ‘ ”” 


SUBROUTINE WALL^ (RN*ICOW|_.IIT*TlTT) 

COMMON /A V/ AAV.BAV 

COMMOm /aLLRI/ YN(40*10) *TN(40.10) *GAmN (40 * 10 ) * XPLAMN (40 * 1 0 ) • 

1 yM|_Amn ( 40 » 10) 

COMMON /ZNDERV/ OPZNUO) .OUZm(ao) *DVZm<40> »OWZN(40> 

COMMOki /j/ QN(40*10) *PHEN(40*lft) »SINN(40*10 ) *XPLaM( 40,10) * 
lXMLAM(4o,10) ,FP (40) *FM(4 q) * A <4ft,l0) 

COMMON VIVY/ IvY.KCORR*IaV ' •• - 

COMMON /TEM/ T(40,10) 

COMMON /A/ XI * THMA Xj TH < 1 0 ) , R * Z ( 40 . 1 0 ) . P j 40 * 1 0 ) * PH(r (40*10)* 

1 O(4o*10) »SI (40*10) *H (40 * 1 0 ) *P*jI (40»lp) *PHO <40* 10 ) *OAm( 40*10) 
COMMON /R/ PN(40* 10) * PH IN (40* Ini t RHON ( 40 * 1 0) . HN (40 • 1 0 ) * ZN < 40 * 1 0 ) 
COMMON /C/ IMAX(IO) * JMAX, ISTaRt,KOUNTf*KOUNTP 
COMMON /D/UW (40) *vw "(4 o) «WW '(40) *XW (40)»VW (4o)*THw (40) 
COMMON /f/ UWN(40) »VWN(4q) *WWN<40) »XWm(40) *YWN(40) *THwN(40) 
COMMON/F/ XP W ( 40 ) 
common /I/ XJ' 

COMMOn/M/ IS ( 7 » 1 0 ) 

COMMON /S/ RI*kOUNT*KOUNTS,IcOwLT 

COMMOn/T/ PP (”4n*2) *ZP (4'0«2) .OP (40*2) *?IP (40*2) »PHEP (4o*2) » 
lWP(4o,2) ,RHOP(40*2) *PHIP(40.2 ) ,GAmP(4o* 2) *AP(40*2) *THp(40*2) * 
2UP(40,2) *VP (40*2) ,WP (40.2) 

COMMON VU/ ERZ7Z 
common/v/xji 

COMMON /w / ISlMEx. IDUMMY* JINT.70UMMY (40) »THwW (2) » JD 1 * JD2 
COMMON /sa/ XJ?S 
COMMON /FWA/ ISOP 

DIM ENS I ON XPL N ( 4 Q) *BN(40) 

JW C jMft X*, ] 

IF(JW.GT.JINT) X J i *0 • 

MMAXerMAX ( JMAX) 

DO 5 jsjMAX* JW 
JJ*1 

TF(J.FQ.JW> J J b 2 
T 1=2 

DO In Isl.MMAX 

TF<ICQW L.E Q.1.A N0.I«GT.IITT.AND.I.LT.IIT> SO TO 10 

DO 89 Ms 1 * 7 

IF ( IS (M. JMAX) *FQ*0) GO TO *9 
TTESTslS(M*J)-t 

7F( (M/2) #2*EQ*m) ITEST=IS (M* J) 

92 IF ( I ,mE« I TEST • ®ND # I *NE* I TEST* 1) GO TO 89 

T I si 

PAT® 1 , 

00 TO 200 

89 CONTIN UE _ 

IF (I.fQ.I.OR.I.EO.MMAX)GO TO Tf, 

TF(J.fQ.JW) ZN(I* J)«ZN(I* JMAX) 

12 IF (ZN { I * J) *LE*7(II*J) ) GO TO lR 

1 I as 1 1 ♦ 1 
00 TO 12 

_JL 5 RAT® ( ?N ( I * J ) - Z ( 1 1 - 1 * J ) ) / ( Z ( 1 1* J) - Z Q I - 1 * J ) ) 

16 IF(I.fQ,1)R«T = 0. ““ 

IF (I.EQ.MMAX)RATsl. 

_ TF(I.fQ.MMAX) t I s I _ 

200 IF (Xj) ,FO.O. ) 



1XPWCT)SXW<II-1)+RAT*<XW(II)-XW< Il-l) ) 

p PTt*JJ)«P (II-l t J) ♦RaT«MP ( I I t J) -P (IT-1# J) > 

7 P(T»JJ> S Z (II-1*J)*RaT*(Z (Il*j)-Z < I T - 1 * J ) > 

0 P(T*JJ)*Q rn-l*J>*RAT *{0 ( 1 1 ♦ J) -Q C I T-l * J) ) 

si P(i*jJ)=si (H-i,j)+rat*(si (ii«j).sx 

PHEP ( T t J J ) S PHE ( 1 1- 1 1 J) *RaT# ( PH r ( 1 1 * J ) -PHE ( I T - 1 * J) > 

H P( T*JJ)=H (II-lt J)*RAT#(H (IltJ )-H ( r T- 1 * J) » 

RHOP f T t J J ) sRHO (II - 1 * J ) ♦RAT*(RHMII»J) -RHO(Ii-l* J) ) 

PHIP (It JJ)*PHI >11-1 t J) *RAT* (PHT (IltJ)-PHl (IT- It J) ) 

TP aFT(PP(X'JJ) •PHIP(I«JJ) •HP(XtjJ)) 

(5 AMP (ft J J ) **FgAM ( TP »PP (It J J ) t PHt P ( 1 1 J J ) ) 

ftp ( 1 1 jj) sSQRT (PP ( 1 1 JJ) *GAMP ( 1 1 !ij) /RHOp ( 1 1 JJ) ) 

IF ( JJ.EO.1 )_THP( I . ( J) 

IF(JJ.E0,2) TRp ( I « JJ) sTHW ( I 1-1 V+RAT* ( >HW ( I I ) -THW (11*1)) 

IF (XJ1.EQ.1..AN0.JJ.EQ.2) CALL SWALLl (T hP<I*JJ> t R# Z p ( i * J J) *FX t F7 > 
TSIP=tAN(SIP(I,JJ) ) 

THjsTHP ( I , JJ) tty J 
STHsSlN(THJ ) 

CTHsCoS ( TH J ) 

CPHEPaCOS (PHEP ( I t Jj) ) 

UP ( I t jj) eQP ( I t’jj) * (CPHEP*CTH-TRlP*STH) 

VP ( 1 1 jj ) eQP ( 1 1 j J ) * ( cphep*sth*trt p*cth) 

WP (T. j J ) eQP (I , JJ) *SI N (PHEP (It J.l) ) 

10 CONTtmUE 
5 CONTINUE 
6262 CONTINUE 
TQ«MMaK- 1 
no 20 I* 2 tlQ 

KiL»i " 

A93*1 . 

R93»0. 

IF (BA vV Gf • 0. ) A 93a, 5 
IF (BAV.GT.O. ) R93 b. 5 
PTePMfl ,JW) 

T F ( BO 3 * EO • 0 • ) XPLN ( I ) ®XPL AMN ( I jW) 
iF(ICOWL.EQ.l.AND.I.GT.IlTT.ANn.I.LT.TlT) GO TO 20 
DO IPO Mel 1 7 

_ F ( IS(M f JM A x ); f q,0) GO T 0 189 
ITESTssIS (Mt J) -T 

IF( (M/2)*2*EQ.M) ITESTbIS (M» j) 

192 IF (I • pQ* TTEST# OR* I »EQ.T TeST ♦ i ) GO TO >0 
109 CONTINUE 

I F (X J l • EO , 0 , ) 

1 C ALL S w ALL < RtZN < 1 1 JW ) * XPW ( I > t Ypw t fX t F7 > 

IF ( X Jl *EO* 1 • ) C 4 LL SWALLl (THwN'd) *RNtZN(It JW) tFX*FZ) 

IF ( X J.EQ, 0 » ) GO TO 2 
THWObaTaN(FX) 

THPWcyPW/XPW(I) 

XWN(I) =XPW ( I) ♦ (Rn-R) *cOS (THWQ) / rOS (TH wQ-THPW) 
nO TO 4 

2 IF(XJ1.E0.1.) GO TO 9 

_ XWN ( I ) B XPW ( I j ♦ (RN-R) 

4 CONTINUE 

CALL SWALL(RN,zN(I,JW) tXwN ( I ) »vwN (I ) *FX»FZ) 

IF(Xj.EO.O.) GO TO 8 
THWN(i>saTAn(YwN(I)/XWN(I) ) 



GO TO 9 

8 THWN ( j )’s YWN (I) 

9 CONTIMUE 
daTs.r 
TT sl 

THAbTH< JMAX) ♦RaT#(THP(I, 2).TH( JMAx) ) 



25 u 

As| | 

P(I*1) *RAT*(U 

P ( 1*2 ) -« « 

p c I » T ) > 


V 

A ev 

P(I*1)*RAT # (V 

' P I 1*2) -w 

p(I*T) ) 


w 

AsH 

P ( I , 1 ) *RAT*(H 

P(I*2)-h 

p(l*T) ) 


p 

Asp 

P(I*1)*RAT*<P 

P< I*2)-p 

p c I * T ) ) 


w 

Asm 

P (1*1) *R AT* ( W 

P(I*2)-w 

p ( I * i ) > 


PHOAbRHOP (1*1) *RAT* < RHOP (1,2) -PMOP ( I *T ) ) 


THAXbTHA*XJ 
XA=R*cOS (THAX) 

VAsR*$In (THAX) *THA*( I.-Xj) 

PHIAapHlP(I*l) ♦RAT*(PHlP(X,'2)-PMlPati ) ) 

TAsFT (P a*PHIa,HA) 

GAMAerGAM(TA,PA*PHlA) 

AAsSOpT (GAMA*PA/RHOA) 

TAITAbvA/UA 

UA2=UA*UA 

AA2sAa*AA 

VA?sVA*VA ' 

PETAsSQPT ( (UA2 ♦ VA2 )/(AA2 )-l.) 

ALAMb (UA*VA*AA? *BETA)/(UA2 • A A? ) 
hUMP*A93#A'LAM*B93#XPLN“( I) 

IF(XJ,EQ.0.) GO TO 32 
THATsyWN ( I ) - ( XWN ( I ) -X A ) *OUMP 
THATbaSIM (THAT/P) 
no TO 33 

32 T FJ XJi ,EQ»0.) 

ltHAt*YWN<I>-(XwN<I>-XA>*DUMP 

IF ( X j] •EO« 1 • ) THAT=THWN<I ) -DUMP* (RN-R ) /ZN (j ,JW) 

33 CONTTNlUE 

fPsApsd.-THAT/THA) 

TF(EP,LT,1.E«04) GO TO 3o 

THAbThAT 

PATss (THa-TH ( JMaX) ) / (THP ( I * 2) -Tw ( JMAX )“) 

ITslT+1 

TF(It . 6T. 15 ) CA LL ERROR (33 ) 

GO to 25 

30 RAT2b (THA-TH ( JMAX) ) / (THP ( I ♦ 1 , 2) -TH ( JMaX) ) 

PATls ( T ha -TH ( JMAX ) ) / (THP ( I- 1 * 2)-TH( JMaX) ) 

D2«ZP(Ul,l>-ZP(I*l> 

D1«ZP'(X*1>-ZP{I-1*1> 

U2«U P f 1 *1 tl) ♦RAT2*-<UP( I*1 »?)-»Up( I ♦ ljlJJ 

VpBVP(I*l,l)*RAT2*(VP(i*i*2)-VD(I*l*l) ) 

W2*WP (1*1*1 )*RATp*(WP (l*i *2 ).Wp (i*i*i) ) 

P2ePP ( I *1*1)*RAT2*(PP(I*1*2 ), Pp( I*_l , lj) 

UlsUPrI-1 *1 ) ♦RAT1*(UP( 1-1 *2) -up (1-1*1) ) 

V1*VP ( 1-1 * 1 ) *RaTi* ( VP ( 1-1 *2) -Vp ( 1-1 * 1 ) ) 
Wl«wp'(I»l *1) *RAT1»<WP(I» 1* 2 ) - W p ( I - 1 « 1 ) ) 

P1sPP (I-1,1)*RaTi*(PP(I.i *2).Pp(I-1,1) ) 
D1D2bo1/D2 

D201bq2/d1 

niPD2 s Ol*D2 



Dl?sDlD2.D2Dl 

nile(U?*Ol D2-(jA*0l2 -Ml *02 D'l ) / {D 1 PD 2 ) 

DVs(v ?*01 D 2 -VA *012 -vi *02 Dl)/(D1PD2) 

0 W* fW2*Dl_D2-WA*0l2 -wi*o2 Dl)/(DlP02> 

HPs ( e?*Dl D2 .Pa*D1 2 -pi *02 D!)/(D1pD2) 

TF(B93.EQ.0.)Bm(I)sBETA 

A22«A9 3 * (RHOa*iiA2/BETA) *093* (RmoN ( I » JW> *UWm ( I ) **2/BN < I ) ) 
FPAbAlAm*RHOA*wA*DU-RHOA*WA*OV- 
1 (ALAM-VA/UA)*(WA*OP*AA2 *RH 0 A* 0 W) «UA/(AA2 ) 

FPAbFpA/BET^ 

IF (BA VEOVO.)FPNMsFPA ” 

IF (Bav.EQ.O. ) GO TO 362 

RN ( I ) eSORT { (UWN ( I ) «*2* VWN { I ) #*? ) /AN ( I * JW ) **9-1 . ) 

XPLN T I ) ■ (U«N ( I ) *VWN ( I ) *AN ( I * JW ) **2*BN ( I ) ) / (i'iWN ( I ) **?-AN ( I * JW> «*2) 
FPNNoyPLN ( I ) *RHON ( I * JW > *wWN { I ) * 0 U 7 N ( I ) -RHON ( I . JW ) *WwN ( I ) *OvZN ( I ) - ( 
1XPLN ( I ) -VWN 

1 ( j ) /UwN( I) ) * (WWN ( I ) *DPZN (I ) *AN ( I » JW) **2*PW0N ( I * JW) *oWZN ( I ) ) *UWN 
1 (I) /AM (I, JW)/AM(I,JW)/BN(I) 

362 CONTINUE 

a i»aav*fpa*Bav*fpnn 
TT*1 

WOUbWP (1*2) /UP (1*2) 

35 VOU°FX+WOU*FZ 

IF(Xjl tEO.l.) VOUsVOU*ZN(l*JW) 

ZSL»ZP (1*2) 

USLbUp (1.2) 

VSL«Vp(l.2) 

WSL*WP (I .2) 

TAUCeVOU 
TTTsl 
60 1 1 s I 

IF (XJ 1 .FO. 1. ) GO TO 64 ' ' ' " 

IF(Xj.EQ.O.) GO TO 62 
THWQeATAN(FX) 

XSl*XwN(I )-(RN-R)*COS (THWQ) /cOG (THWQ- tHWN (J ) > 

GO TO 63 

62 XSlcXw(T) 

63 CONTINUE 

CALL gWaLL (R»ZSL»XSL*YSL»FXSL»pZSL> 

64 TFfXji.EO.X.) CALL SWALLl (THSL,RtZSL*FXSL»F7SL> 

OUMs . R* ( WOU* WSL/USL ) 

IF (DUM.GT.O. ) 11*11*1 

IF(XJ1.EO.O.) 

1 7 SLTB 7 N ( I « JW ) -RUM* ( XWN ( I ) -XSL ) 

IF (X Jii .GT.O. ) 7SLT®ZN ( I » JW) - (Rm-R) »DUm 

R AT» ( 7 SL T-Z P ( II- 1 . 2)) /( ZP ( 1 1 . 2V-ZP( 1 1 - 1 . 2 ) ) 

USLbUp (II- l ,2) *RAT* (UP ( II ,2 ) -Up (I 1-1 .2 ) ) 
VSL*Vp(H-l*2)*RAT4(VP(II*g)»Vp(II-l*g> ) ) 
WSL B Wp(lI-l*2)+RAT*(WP(li*2)-Weni-l»2 ) ) 

EP=ARS( (zStT-zSL)/(ZP(II»2)-zPfil-l*2) ) ) 

IF (EP.LT.EBZZZ) GO TO 40 
ZSL*ZSLT 
TTTbITT+1 

iF(XTT.GT.lO) CALL ERROR{40) 

GO TO 60 

' 40 IF ( X j j .EO.O.) pN"(ITJW)sP A *ai * ( XWN < I )-XA)-Agg* (TaUC-TaUA) 



IF ( X J ) • G T • 0 # ) PN ( I « JW) =PA* ( Al *(RN-R)- A22* (TAUC-TAUA)) 

~ PSL = PP(H-1»2URAT*(PP(II.2)-PP(II-1.?) ) 

HSLbHP (11-1,2) ♦RAT* (HP (I I, 2)-Hp<II-1,?) ) 

RMOSLsRHOP ( 1 1-1 « 2 ) ♦RAT* (RHOP ( I f *2) -RHoP (II-? *2) ) 
PHiSL«'PHlP<II-T*2) ♦RAT*(pHIP(lf.2)-PHlP(II-T*2) ) 
TSIsFT(P$L»PHI5l,hSL) 

GAMSLsFGAM(TSL.PSL*PHISL) 

PHTNJ(I*JW)=PH I SI- 
PHON ( t ♦ JW) sRHOSL* (PN ( I * JW) /PSLv** ( 1 ./gAMSL) 

VVSL«uSL**2*VSl*«2*WSL**2 

VVC S V V ST>2T * GftM «? l/ ( G AMSL-i . ) *>PSL/RHOSL-PN ( I , JW) /RhOm ( I * JW ) ) 

MTSLeHSL*«5*VVsL 

HN(I, jW) s HTSL-.5#VVC 

I.JWNTT ) *SORTTVvc/ (| ,4TAUC**2^W0 m**2) ) 

VWN(T) s UWN(1)*tAijc 

WWW ( T)*UWN(i)*wOU 

~T F < X J 1 . G T . 0 . ) T H n ss T H S L ' 

IF(xJ,EG.0,,AND.XJ1.EQ,O,) THD=ySL 
IF(Xj,GT.O.) TmD*ATAN(YSL/XSL) 

RAT* ( THD-TH ( JM A'X ) ) / < TH P ( I * 2 ) -Tm ( JMAX ) ) 

PDbPP ( 1,1) *RaT* (PP ( I ,2) -PP (1,1) ) 

W Dew P ( I * 1 ) ♦RAT* ( W P(I, 2 )-W P(I*1)) 

U Oeu P(I*1)+RAT*(U P(!*2)-rr P Cl * 1 ) 

V Dev P(If 1) *RAT*(V P(I,2 )-v P(I,n> 

RHODspHOP (1*1) *RAT* (RHOP ( I *2 ) -dhOP ( I * V > ) 

OD«S(3rT (UD*t)D*VD*VD) 

RAT2s(THD-TH(jmAX) ) / (THP (1*1,2) -TH ( JMaX) ) 

_ PAT U( THD-TH(JMA x )) /(THP (1-1,2 ) - TH (JMaX)) 

W2«Wp ( I ♦ 1 * 1 ) *R a T2« ( WP ( I ♦ i * 2 ) -wp (1*1* 1 ) ) 

P2ePP(I«l*l)*RAT2*(PP(X«lf2).pp(X*lfl) ) 

Wl sWp( 1-1*1) ♦RAT1*(WP(I-1 *2) -WP( 1-1*1) ) 

PlBpp(I-i,i) ♦RATl* (PP(I-i*2)— Po(I-l*l) ) 

DWb(w 2*D1 D2-WO*Ol2 -m*02 D1>/(D1 pD2> 

PPg ( P?*D1 P2-PP»Dl2 -p i»D2 D 1 ) / ( D 1 PD 2 ) 

IF (Xjj .FO.O. ) 

lnELS*5QRT( (XWN(I)-XSL)**2*(YWN(I)-YSD**2) 

TF (XJi .GT.O,) nELSaSQRT ( ZN ( I , Jw ) *» 2 » ( tHWN ( I ) „THD ) »«?+( RN-R ) ** 2 ) 
VDZN.o. 

DNWsSoRT (UWN( I) **2*VWN ( I ) *#2) 

IF (X J1 .GT.O# ) vOZns ( VD**2*A93*\/WN { I ) **2*B93) *DELS/ZM ( T • JW) 
WTESTbWD+VDZN 

nWTe- ( (dP/RHOD/GD*WD*DW/QD) *AAV/* (DPZN(I) /RHON( I* JW) /QNW ) 
1*BAV)*DELS 
wTESTbWTE3T*DWT 
PRRb WW N (I >-WTEST 

I TbIT* 1 

PPbAPs ( WWN ( I ) - wTEST) /uw ( I ) 

TF(EP.LT.l.E-lo) GO TO 3611 

IF(lT,GT«2) GO TO 80 _ 

wOUIbwOU 

wou=i.oi*wou 

TF(WQl)»LT«l*E-6) WOUg. OO 1 

FRIbERR 
GO TO 35 

AO WQUNbwOUI-ERI* (WOU-WOU l ) / (gRR-pRl ) 

eri *err 



WOUlswOU 

WOOsWOUN 

TF(IT.GT.IO) caul ERROR<80) 

(50 TO 35 

36 ii continue 

ET=A8S<1 .-PT/Pw(I » JW) ) 

TM ( I •JW)*FT(PM(I ♦JW)»PhIN(I ,JW)*HN(I • JW) ) 

GA’M’N { I , JW)=FGaH(tN(T fJW) ♦PN(T ♦JW>#PHIN(I ,JW)) 

AN ( I , JW) sSURT (GAMN ( I »JW)*PN(T #JW)/bH0N(I ,JW)) 

UW?= u wN(I)*UWN^IL 

VWpaVwN(I)*VWN(I) 

PN*SorT( (UW2 + VW2)/ AN ( I « JW) **2-) •) 

XPLNo (UWN ( I ) *VWN ( I ) +ANJ I • JW ) «*?*BN> / ( IIW2-AN ( I ♦ JW ) **9) 

IF (’XVy*EQf 0*OR # ET «LT» 1 ,E»04) Go TO 20 

KIL-KtL*1 » 

IF ( K I L.GT.lOJoO TO 1493 
A 9 3 e t o 
B93a.5 

PToPkkI ♦ JW) 

GO TO 9 

1493 WRIT£(6, ]393) 

1393 FORMAT <* AVERAGING PROCESS DOES NOT CONVERGE IN WaLL *) 

WRITE (6,4949) KOuNT* I • AA V * A9G 

4949 FORMAT <* K0UNTb*I5*5X*Is«H5, 5 x4aAV**Ei 3.5*5X*A93**Ei3.5) 

STOP 

20 CONTINUE 
IDUMbmMaX- 1 
7DUM]eZN(lt JM ax) 

ZDUMpaZN ( MMAX * jMA X ) 

TF(ICOWLT.EQ.O) 

1CALL cORNER(1.RN,THWN(2) ,ZdUM1) 

TF(IsoP.nE.O) GO TO 250 
IFncoWL.NE.l) THOUMsTHWn(IOUM) 

IF < ICO w L .EQ. 1 ) THqUMbTH { JMAX ) 

CALL cORNER(IMaX(JW)*RN*tHDUM *Z0(i M 2) 

250 CONTINUE 
XJ1*XJ1S 
IMAX JsslMAX ( JW) 

00 7562 IalfIMAXj 
THWNy-ThWN (I ) *XJ 

PHEN(I.JW)saTaN(WWN(Y>/(UWn(I)*COS(THWNX MVWN(I)* 
lSIN < ThWNX ))) 

VDtlMsVWN ( I ) *cOS ( THwiNX )»1JWN(I)*SIN(THWNX ) 

QN ( T ♦ JW ) “SORT (UWN ( I ) **2* VWk * ( I )•**?♦ WWN ( I ) **?-VDUM**2 ) 
SINN(I*JW)*ATAN(VDUm/ON(I# jW) ) 

7502 CONTINUE 

return 

END 



SUBROUTINE SWALU (TH,xl*2l*Fx»F7) 

COMMON) /G/~AT(3*P) *A2 (3«9) #A3 » RR? (3) *Rp? (3) *RR3 (^ ) 

1 ♦ NUM| wS « NUMUWS * NUMSWS 
i. s l 

XTT = r.E*fr 

IF (L.lJ, NUMSWS) XTT=RR3(l*1) 

TF(Xl.Gr.XTT) L=L*1 
' TF(L.i;T.MUMSwSr“XTTaRR3(L*l ) 

IF (X] . GE.XTT. AND. L«LT. NUMSWS) j sL* 1 
XeXl 

f*zT ~ ‘ 

7Z=Z#7 

XX*X#X 

31 lTIT* X X *Z Y* T3 ( L * 2 ) * X X # Z * A 37 L *3") *x*ZZ*a3 ('l •*) *XX*a3 (L *5) *ZZ + 

1 A3 (L, 6)*X*Z + A3 (L t 7) *X*A3 (L t 8)*7 4 A3 (L*R) 

THeY 

FXs27#A3TLtlT*V*ZZ*27*A3 (L#2) *v#Z*A3 {[ *3> *Z7*?.*A3 (t*4) *X*A3 (L*6) 
1-*Z*A3 (L,7) 

FZ*2.*A3 (L*l ) *XX*Z*A3 (L»2) *XX7?.*A3 (L*3) *X#7*?.*A3 (I *5) *Z 
1 ♦ A 3TL * 6') # X ♦ A’3 (T * 8 ) 

RETURN) 

END 



SUBPOUT I ME B WALL (Rl f THl *Z*FR1 tFTl ) 

COMMON /6/ Al(3tR) *‘A2(3,9> *'A3n,9) #RRi (3) ,RP2(3) ,RR3(3) 

1 ,NUMlwS,NUMUWS,NUMSWS 
common/i/ xj 

common /r/ jyxcn * xcvxx i * jw » xnt ♦ i cowl* oCOWL 

COMMON /V/ XJ1 

COMMON /TSW/ JCALC»ISwEEP»XINSd ( 10) f X? 

1*1 

PTT*1 .E+06 
THX*tH 1*XJ 
R * Pi# o OS ( T H X ) 

ReR-xiNSP ( J) 

IF (Xj.EO.0. ) TsTHI 

IF ( X J.EQ, 1 . ) TsRl^SlN ( THl ) 

TF(L.lT.NUMLWS) PTT*RR1(U*1) 

TF(R .GE.RTT) L = L*l 
TF(L,lT.NUMLWS) RtTsRRI ( 1+1) 

IF (P.oE.RTT.ANn.L.LT.NUMLWS) L*L*1 

RRrR*R 

TT*T*T 

7*a1 (l*1)«RR*TT*a1 (L*2) *rR*T*A] CL *3) »d*TT*aT (L**> *RR*a1 (L*F)*TT* 
1A1 (L^6) *R*T+A1 (L,7) *R*A1 (L*8) *T + A1 (L*P ) 

F« *?.*A1 <L»1)*R*TT*2,*Ai (L«2)*p*T*A 1 (L*3> *TT+2.*Al (L,4>*R*A1 (L*fe> 
1 *T* A 1 (L.7) 

FT =2.*A1 (L»1)*RR*T*A1 (L*2) *RR*?,*Al (L *3) *R#T*2.*Al {L.5)*T*A1 (L«6) 
1 *R*A 1 (L ♦ 8 ) 

FR1«Fr*COS(THX) ♦Ft*SIN(THX) 
rT]*-FR*SIN(THX) ♦FT*COS(THX) 

IF(Xj.E0.1«)FTi=Ftl/Rl 

IF(XJ1.EO,1.)FT1sFT1/Z 

return 

FMO 



SUBROUTINE T8LnUM(2X,PX,SIX,HX.oHlX*Qx.PHEX,RH0X f 6AMX,L»IMflX*I) 
OOMMom/PS/Z ( 40*2) ,P (40*2) »Q (40.2) *H (4ftt2 ) *St ( 40*2) ,PHn (40*2) 
l.PHI (40,2) * PH£>40 *2) * THR ( 2 ) . GAm ( 40 ) 

K=L 

DO 10 J7el * IMAX 
J5sJ7 

TF (Zx-Z ( J5»L) ) 8.9*12 

8 'j 6 c JS - 1 “ ' " 

7 TF ( I # £Q,1) J6*J5*1 

RAT® (7X-Z ( J6*K) ) / ( Z ( J5 *U -7 ( J6 . K ) > 

~ “P X = P TJ6VKTTTP < J5*U -P (Tf .K)> *R A T 
H XssH ( J6 * K ) ♦ ( H (J5*L)-H (Jf,*K))*PAT 

O Xso ( J6 * K ) ♦ ( Q <J5*L)-0 ( if »K) ) *RAT 

s i~~x = s i tj* * k ) v( s r < J5 * l > - s i i : i* » k > ) *r a t 
PHIXaPHl (J6,K)*(PHI ( J5 * L ) -PH I ( . If , K ) )*RAT 
PHEXspHE(J6.K> ♦ (PHE(J5*L)-PH£(.lf *K) > *RAT 
RHOXepHO Q6YK > ♦ (RhO ( J 5 *L ) -RHO ( jf *K) ) *R AT 
0AMXe0AM(J6 )*,(G4M(J5 )-GAM(if ) ) *DAT 
GO T 0 11 

9 CONTINUE 

P Xcp (J5*L) 

H Xen (J5*L) 

0 XeO ( J5*L) 

SI XbsI ( J5 • L ) 

PHlXspHl (J5,U 
PHEXaPHE ( J5*L) 

PHOXspHo ( J5 ♦ L ) 

GAMXsnAM(j5 ) 

GO~~TO n 

12 TF(J5.EO.IMAX) GO TO 8 
10 rONTiNUE 

'll return ~ " 

FNO 



SUBROUTINE ALSmOC (K) 

common /a / x 1 » f H M a X VT H (T 0 ) 9 R 9Z ( 40 , 1 0 ) *P f 40 9 1 0 > 9 PH|r ( 40 9 10 > * 

1 Q ( 40 * 10 ) 9 SI (40*10) *H(40*10) *PmI (40 * 1 0 ) *RHO'<4O*l0) *SAm{40*10) 

CQMM Qm / B/ PN (40*10) 9 PH IN (40* lo) *RHON (40 9 10 ) *HN ( 40 9 1 0 ) t ZN ( 40 ♦ 1 0 ) 

COMMON /C/ IMax ( iO)VjMAX, istart»kountf»kountp 

COMMON /O/ UW ( 40 ) » VW (40)«WW (40)tXW (40)*yW (4 Q)*tHw (40) 

COMMON /E/ UWN(40) *VWN(40) «WWN>40) *XWM(40) »VWN(40) *THwN(40) 

COMMON /H/ ISIM 

COMMON /I/ XJ 

COMMOK|_/K/ PN.oELR 

COMMON /C/ ’AUPHAN(7* 10) 9 ALPHA ( 7 « 1 0 > * BfTAN ( 7 , 1 0 ) *BETA (7*10) 
COMMqn/M/ IS ( 7 « 1 0 ) 

COMMON /O/ ALP (7* 10 ) ♦ ALPN (7. 1 0) 

COMMON / V/ X JT 

COMMON /w / ISIMEX* IDUMMY, JINTi^OUMMy ( 40) * THwW ( 2 ) * JDl 9 JD2 
COMMON /SA/ X J?S 
COMMON /WR/ I WRAP 

00 13 J*1»JMAX 

TF(J-eQ.JINT.OP # J.EQ.JINT 4 1 ) Go TO 13 
IFTjToT. JINT) xJl«0. 

I S IS (K* J) 

IFiISjM.EQ*l.AND. J.EQ* JM^X) gO TO 100 

TF(J,oT. 1 ) GO fO 15 
100 ALPN(K*J)-0. 

ALPHaN(K*J)sO. 

GO TO 16 " 

15 JP®J+i 
_ jMeJ-f 

TF ( JP. Ne. JMaX ♦ T) THPsTH <jP" ) 

IF ( JP.EO, JMAx*1 ) tHPbTHwN(I) 

02*THP -THU) 

nT e T H ( J j «iTH ( JM ) — 

D1bAR S (D1) 

02bA9S (D?) 

01 02bO 1702 “ 

0201*02/01 

01 POpaDl *D2 
0T2 * 0"i D 2 • D’2 DT 
I2 bIs"(K* jp) 

1 1 * I S ( K » JM ) 

IF ( X J] • FO, 0, ) 

1 ALPN(k* J)s(ZN(f2*jP)*DlD2 «ZN(I, j)*D 12 -ZN(Ii',JM)* 02D1>/01PD2/RN<»4XJ 

IF ( X ji»£Q, 1 , ) aLPN ( K * J) s ( aLOr ( 7N(l2fjP) ) *D102 -aL0G <7N ( i • J) )*ol2 
1 .ALOG TzM ( IT 9 JM) ) #0201 ) /DTP02 
ALPHan(K9J) sATaN(aLPN(K9J)*C0S'(RETAN(K*J) ) ) 

ALPN(k* J l - a TAN(AlPN(K9 J) ) 

16 CONTINUE 
13 CONTINUE 

IF (IWRAP,EQ*0> CALL ALWRaP(K) 

XJlsXjlS 

RETURN 

FNO 



FUNCTION RHEO(H«PltF) 

TlsFT{Pl*F»H) 

T=Tl*5./9, 

PsP 1 # i ,0l325E*ft5/2116. 

IF (F7i T, n * ) GO “TO 2260 
PNMsi .5?*F*F-5.895*F*28.965 
FNNsl # 6*F#F-10.6*F*33.6 
IF (T.^T.aOOO.y “GO TO 2030 
XMbFNM 

TF(F.lT. 1,) GO TO 2160 
XMrFMKj 
GO To 2160 
2030 FF=F*F 

A b=? 7J * F F +4.01 » F* ITT 3 6 
Pc8.6i*FF-15.4?«F.6.66 
C*»-16.88«FF*33.21*F*14.58 

X Ns - .4 37 5« FFV7ft6? 5*F*2V0 g 

Os A* ( aLOG (P) /2,3) #*1 , 5*B# ( ALOG ) P) /2.3) *C 

XMsFnm-D# < (T- 2000. ) /1000, ) **xN 

T F ( T~i T * 17) GO TO 2160 

Ae»,822*FF*2,363*F* 1,905 

Ps2.76*FF-7.56«F-8*68 

C*-3 . (S*FF + 7,36*F ♦ 27 * 15 

vNs» ,4T#FF ♦ 1 , 8?5*F ♦ * 35 

DsA* ( aLOG (P) / 2,3)**1 ,5*B* (ALOG (P)/2.3) *C 
XM'sFNN-0* ("(7«2oOO, ) /1W0, ) **XN 
GO To 2160 
2260 KFeF-,5 

TF (KF7E0'i-T) XMsl6.043 
lF(KF,E0,-2 ) XMb 28.054 
2160 RHEQ=P*XM/T/83i4.3*6,2428E-02/32.l74 

return 

END 


FUNCTION FGAM(Tl.Pl*F) 

CO MM o N / THE"/ ~A1tA 2YA3V A 4 , A 5 * A 6 , XMM 1 
Te5.*Tl/P. 

T2=T*T 

P=P 1*1.0 ] 325E5/2 11 6 ( 

XMeO. 

TF(F,lT.O.) GO TO 550 
I F ( T . l E7r0 0 O .T G O - TO 4 40 
XMs-?. 15F-08#T? *.00009H»T-,o6pc; 

440 XN»4 #e - 09*T2 -,00002#T-.0l9 
IF(F # lE. 1,) GO TO 470' 
XN*.0339«SQRT(T)-.000391*T-,68T 
470 o=-l,n33F-07*T2 *.000075*T*1 .3*7 
IF(T # CT.500.) oO TO 520 
6*2.E-08*T2 -.000l38«T+1.423 
IF(T,lT. 2000.) GO TO 520 
O=7.Pfr7E-08*T2-.000457*T+r.85 
520 GsG*Xm*(AL0G(P)/2,3-5.)*XN*(F-T.) 

GO TO 530 
550~t3cT?TT 
T4eT3*T 

CP s A1+AP*T+A3*T2*a4*T3*A5*T4 
"GbCP* ( CP.l • ) 

530 CONTINUE 
FGaMsq 

return 

END 



SUQRmjTTME ERROR fT) 

T F ( I , e Q • 1 7 1 ) GO TO 2 ' 

IF(I.fQ.20 ) SO TO 3 
IF(I,f 0.30 ) GO TO 6 
TFn.pG.50 ) GO TO 8 
TP(I,pQ.l8 ) GO TO 10 
TF(I.E<M6 ) GO TO 12 

WRTTfT6Tr)“X " ----- - 

1 FORMAT (* ERROR IN ITERATION LOOP IN WaLL ROUTINE AT STATEMENT NijMB 
lFR*tl5> 

CALX pNch 

2 WRITE (6,4 > I 

4 format (« error in v/u iteRatiom in main - statement number **I5> 

cxri^pNcw ~ ■ 

3 WRITF|6,5 )I 

5 FORMAT (* ERROR IN SIDE W A LL LOCATION IN CORNER - STATEMENT NUMBER 

~Y*71S-) ' ’ ‘ 

CALL PNCH 

6 WRITE (6*7 ) I 

7 FORMAT ERROR IN THETA A PLAN? IN CORNER - STATEMENT NUMBER *♦ 15) 
CALL PNCH 

8 WRITE f 6. 9 )I 

9 FORMAT C* ERROR InT“a~POINT ITfRTTION In CORNfR - STATEMENT NUMBER * 
1.15) 

CALL PNCH 

rowRiTEf6TiTri ~ — — 

11 FORMATS* ERROR IN D POINT ITERATION In CSURF - STATEMENT number # 
1.15) 

CALL pNch 

12 WRITE (8. 1 3 ) I 

13 fORMat ERROR IN NORMAL to contact surface IN CSURf - statement N 

1UMBEP *, 15) ' — " 

CALL PNCH 
END 



SUBROUTINE XLAM(0*A*PHE»XPLAM»yMLAM) 

OPHE^cOSTPHEJ 

OUMl«-'(0/A)**2 

DUMbDuM1*CPHE *SIN(PHE) 

OUMSb^QRT ( DUM1 - 1 . ) 

OUM3bqUM1*CPHE 

X PL A M x (DUM+DUM?) /DUM3 

XMLAMs (DUM-DUM?) /DUM3 

return 

END 



SUBROUTINE F (RHO*o*R*Z*PHE» XPLam.xMLAm*SI*&,sIQ»PO«PH|tq,FP,FM) 

~r'OMMON“7I7~Xg 

rOMMQM /V/ XJ1 
CPHE«eOS(PH£) 

SPHE=SlM (PHE) “ 

TSIsTaN(sI) 

TSi2«btSI*TSI 

~D U M l'ep H 0# 0 * Q — ------- 

IF(Xjj ,E0.1.)0ilMlsDUMl/Z 
IF ( X J .EO.l # )DljMlsOUMl/R 
HU M 2 P x S P he-cph E # X P L A M 

DUM?M e SPHE-CPHF «X m LAH 

DUH3csI0/C0S (St ) **2*TSI *PQ/RHO/A/A ♦CPHE*X J 

r*spHf*xji _ 

nuMAxtsi *pheo 

DUM5PbSPHE *XPLAM*CPHE 

~nUM5'MsSPHE * X M|_ a M ♦ C PHE ” 

nUM6P a XPLAM*TST2*xJ 

^TSI ? *XJ! 

D U M 6 m a Xml a m * t S i 2 * x j 

1-TSI?*XJ] 

FPeDlJMl* (0UM2P*DUM3-DUM4*0UM5P-0UM6P) 

FMbdumI# ( 0UM2M*DUM3-DUM4*OUM5M-nUM6M) 

RETURN 

END 



subroutine inter 
COMMoKr>TEM/ "T 7A0Tl 0 > 

COMMON /JF/ JFtNAL 

COMMON /A/ Xl»jTHMaX*TH(l0) *R ,Z (40,10) »P(40tlO) *PH f ( 40tl0) * 

T 0 ( 4 h , 1 0 ) »S I "(4 0 * 10 ) »H(40* 10) ,PuI (40,16) ,RHO'(40»l0) *6AM(40f 10 ) 
COMMON /B/ PN(40*10) *PHIN(40*1o) *RHON( 40*l0) * HN ( 40 * 1 0 ) • ZN ( 40 * 1 0 ) 
COMMON /c/ IMAX ( 10 ) * JMAX, ISTARt,KOUNTf*KOUNTP 
COMMON /D7 UW (40) ♦ V W ( 4 0 ) * W W (40) # X W (40), YW (40) *THw (40) 

COMMON /E/ UWN(40) #VWN(40) *WWN(40) »XWm(40) ,YWN(40) *THWN<40) 

COMMON /H/ ISIM 
COMMON /l/ XJ 

COMMON /J/ QN(40,10) *PHEN(40»lfi) *SINN(40*10) , XPLAM (40 , 1 0 ) * 

IxMLAM (4q * 10) »Fp(4Q) »FM(4o) * A ( 4r> , 1 0 ) 

COMMON / 0/ XCOWL 

COMMON /R/ J»XcN,XC*XXI, JW,I nT,ICOWL.RCOWL 
COMMON /V/XJ1 

COMMON /W / I SI MEx , iOuMMy , J IN t* 7 DUMMY ( 40 ) , THww (2) , JDl * JD2 
COMMON /IQ/ NUMEXP*ZSAV 
COMMON /WR/ I WdAP 

C0MM0N/PS7ZR"(4n“*2) * PR( 4 0 ,~277 oR'( 4 0 ,2) , M R ( 4 0 , ?) ,SIR(40»?) tRHOR (40,2) 
1,PHIP'(4 0 ,2) » PHfR (40*2) ,THR(2) ,THWR<40) 

IMAXJbImaX ( J) 

THI«TH ( J) 

IF (Xj.Nfr.O, ) THT=XXI*TaN(THI) 

PATb(xXI-xC)/(xCN-xC) 

' DO 3*98 I * 1 * I M A X J 

7 I«7 ( j » J) *PAT* (Z N ( I « J) -Z (|tj)) 

P I*P ( I ♦ j) ♦R AT* (P N( I , J) -P < I * J > > 

0 I «S (3 n » J ) ♦RAT* ( Q N ( I » J j -Q ( J * J ) ) 

H I»H (I*J)+RAT*(H N(j,J)«H <I»J)) 

SI I«sl (I*J)*RAT* (SINN ( J » J) -ST ( I * J ) ) 

RHOI epHo ( 1 1 J ) ♦RAT* ( RHON < I , J) .RwO ( I ♦ J ) ) 

PHIIepHl (I»vl) ♦RAT*(PHIN(i ,J)-PmI ( 1 1 J > ) 
pHEI*PHe ( I * J) +RAT* (PHEN < I » J) -Pwe (I * J) > 

IF (XJ*EQT0,)Go "TO 3697 

UIsOI*COS(TH( J j ) *{COS(PHEl) -TAM(SII) *TAN(TH( J) ) ) 

VIbOt*COS(TH(J) ) * (COS (PHE l ) *TA m (Th ( J) ) *TAN ( SI I ) ) 

W I «Q I *Sl N ( PRET ) ~ 

QIsSOrT (UI # UI*WI*WI) 

SII*ATAN(VI/QI) 

PH E I ■ At A N ( W I /U I ) 

3697 WRlTf (55) Zl ,Pi ,Ol ,HI .SI I tRHOX.PHlX »P hEI *ThI 
IF( J.Lt. JMAX.OR.IWRAP.EQ.1 ) GO TO 369 b 

!>1 * ' 

IF(J.FO.JW) L-? 

7 P(i*L)=Z J 

P R (f*L) sp I 
0 R ( y »(_ ) sQ I 
W R(t*L) b H i 
SI P(I*L)*SI I 
PHOR(t»l) s RhOI 
PHIR(T*L)»PHII 
PHE R (T*L)* p HEl 
THR(L)*TMI 

IF(L,e0,?) THWr ( I ) sTHWN ( I ) 

TF ( l , EG . 2 . AND . x J . NE , CT, ) T* WR ( I VsXxI*T aN ( THwN(I ) ) ' 



3698 CONTlwUE 

iFQTnVjW ) R eTU RKf 
VJsO. 

TNt=? 

TCOWUsi 

rrdWRAP .eq.I) go to 4 

IMAXJJSIMAX< JM&X) 

no 5on L=1 *2 
DO 5oo IslflHAxJJ 
JPsJ Ma x 

TF(LTc r Q.?)^JP =JW 

7 (T»JP)sZ R(I«U 
p ( T ,jp)ap R ( I • L ) 

0 (TVgpysQ RTITL) 

H (I.JP)SH R(I#L) 

SI (T,JP)aSI R(I.L) 

PHO(T. JP)=RHORd*L> 

PHI (I, JP)ePHlR(I.L) 

PHE < I . JP ) sPHER ( I • L ) 
TH'QPT=T HRTIT) “ 

JF(L.EQ.2> THW 1 1 ) sTHWR ( I ) 


500 continue 


JTNTbjMax 
jWWeJw*MUMEXP-f 
TMaXXsIMaX ( JINT) 


DO 4fcJ I c 1 * I MA X X 
L«I 

IF(Z(i*JINT) .GT.ZSAV) GO TO 46* 



461 cONTImOe 

462 IDUMMv=L -1 


TF (IDHMMY.LT. NUHEXP) IDUMMY=NUm£XP 

IM*rD!ijMMY 

TTel 

2 jSsJM fl x 

TF(IT.EQ.p) JSeJW 
nE2 B 7SAV-Z(l»JMAX) 

DO 3 TsUNUMExp 

70UMmy'< I) *Z< 1 » JMAX) ♦DEZ*FLOAT ( f-1 ) /FLOAT (NUMEXP-j ) 
jeJWW-I+1 

IF(J # eO.JW) JejFlNAL 
70 *ZduMmy ( I ) 

IF ( I ,pQ. 1 . AND. JS.EQ* JW) ZDsZ ( 1*. JW) 

IF (XJi .EO.O.) GO TO 301 

I Pal “ ' 

302 CALL SWALLI (THQ.R, ZO.FXtFZ) 

7DT«ZD/COS(THG-TH(JMAX) ) 

CALL SWALLI (THGG»R»ZDT*FX*FZ) 

(tPsTHgG-THG 
TRslR* 1 

IF! A8S (EPrrtTT • 1 .E-l 0") GO To 3 07 

IF(IR.GT,2) GO TO 303 

DUMaf ,01»ZD 

? 0 1 B 2 D 

FPleFp 

7 D=DIJM 

GO~Td 3 o? 



303 nUMa 7 nl-F:Pl*(ZDl-ZD)/(EPl-EP) 

70ia 7D 

EPl*EP 

7D=DUm 

IF rr6.LE.ro> Go TO 302 
wRlTp (6,304) 

304 P0PMat(* ERROR IN ITERATION LOnP IN SUBROUTINE INTER*) 

CA'Cl pNCH ' 

301 CONTINUE 

___ CALL T8L(ZD *P (IT.J) , SI (TT*J> .H(IT*J) ,PHl (IT.J) ,Q(IT.J) 

lPHE(Tf*J) *RRO ( IT ♦ J) .GAM ( I T • J ) tTMX.JSf JMAX(J c) ,1) 

7(TT,j)sO, 

IF (Xji .GT.O. .AND.JS.EQ.JW) THXbTHG 
IF(1t.EQ. 2) Z(TT. J)*THX " -TH(iMAX) 

IF(It.EQ,2.ANO.XJ1.GT.O.) Z ( IT, J) eSINifZ ( IT * j) ) *ZD 
TH ( J ) gZSA V-ZQU mMY ( I ) 

IF (T.>Q. 1 .AND.JS.pQ.JMAX) f HWW'rj ) bZSAV-Z ( 1 ♦ JMAX) 
THDUM a (THW(l)»TH( JMAX ) )«XJl 

TFU.fQ.1 .and. JS.EQ. JW) THWW(2)=ZSAV-7(1*JW)*C0S(THdUm) 

UTcQ ( jT* J) *COS (PHE (IT.J) ) " 

IF(Xji.EQ.O) GO TO 306 
Wl b Q ( i T t ^J) «SIN (PHE j IT, J) ) 

V 1 f t T . J ) * T A Nr Si ( I T » j ) ) 

0TMHcTHX-TH ( JMaX) 

WT=V)*COS (DTHH) +W1*SIN(DTHH) 

VTsVI *SIN'(DTHH) -Mi*COs (OtHH) 

00 To 307 

306 CONTINUE 

VT=*Oj IT.J') *S I N ( PHE ( I T * J ) ) 

WT*Q ( iT* J) *T aN (SI (IT.J) ) 

307 CONTINUE 

TF-HTmE ,T)^G 0 fO 300 ~~ 

UW(IT)«UT 
V/W(IT)«VT 
WW(TT)sWT 
XW (IT) =XCOWL 
VW(IT)*THWW(IT) 

30 0 CONTINUE 

0(IT, J) bSQRT(UT*UT*WT*WT) 

PHE (J T* J ) *ATAN j WT/UT ) 

S Id T , J) sATAN (VT/Q (IT * J ) ) 

T ( IT * j) *FT <P ( IT* J) *PHI ( I T * J) »H f IT* J) ) 

(3 AM (iff J)eFGAM(T(IT»J) *P ( IT* ’ j> .PHI ( IT. J) ) 

A (IT. j) =SQRT< Gam ( IT* J)"*P( IT.J) /RHO (IT.J)) 

CALL xLAM (Q ( IT. J) .A(IT*J) *PHE(lT*j) * X pLAM (IT.J) *XMLAM( iT*J) ) 
f MAX ( j) s? 

3 CONTINUE 
!F(IT.EQ.2> GO TO 4 
TTc? 

GO To 2 

4 continue 
return 

end " 



SUBROUTINE L Tm M 

C DMMqkT/ a /X it THM'AX7TH( 1 0 )* R ,Z(40,l0) » P( 4 0 * 1 0 > . PHp ( 4 0 tio ) * 

1 0 ( ^ 0 * 1 0 ) » S I ( 4o * J 0 ) » H f 40 * 1 0 ) *PmI ( 40 » 1 0 ) »RHO>40*l0) #GAm{40*10) 
COMMON /B/ PN(40,10) ,PHlN (40, 1 r> ) ,RHON(40*l0\ ,HN{40*10) «ZN(40«l0) 
COMMON /S'CL'TM/ ZLIFTC*XThRC*YMOMC* ZLIfTS*XTmRS»YmOMS 
COMMON/M/ I S { 7 , 1 0 ) 

COMMON /C/ IMAV (10) , JMA X , I START, KOUNTF * KOUNtP 
COMMON /d/ UW (40)«VW ( 4 0 ) * W W (4 0 ) * X W (40)*VW (40)»THw (40) 
COMMON /£/ UWN(AO) #VWN(A0) #WWN(40 ) «XWm(40) »VWN(AO) *THWN(A0) 
COMMON /I/ XJ 

COMMON / J / OKTUOvlOl *PHEn (40*1 o V*SINN (40 * 1 0 ) , XPLAM (40, 1 0 ) * 

1 XML AM (4o, 10) ,FD( 40) ,FM( 40) ,A(4n,l0) 

COMMON /K/ RN.OELP 

COMMON 7R7 “J,X C N , X CT XXTTj W7lN T.JCOWL/ pCOWL 
COMMON /S/ RI»KOUNT»KOUNITS.IcOwlT 
common /V/ XJl 

c OMM 0Kr7w7~IS I MEF,“ID UMMyTj^ NtTtOUMMyY 4 0), THww (2) , JDl , JD2 
COMMON /TO/ NUMEXPtZSAV 
COMMON /WR/ I WRAP 

COMMON /rs W/ 'JCALC » rSWEE'pTXlNSD f 1 0 )7x? 

COMMON /THR/ PTNF,ZLIFT,xTHR, YmOM, JJI,ZSHlFf,XSHIFT 
COMMON /WO/ XJSS 

iFlI^nWL.EQTl, ANcTTXYISS.GT.O. ) RFTUW 
J JKc? 

IF (Xj.Eo,0*»OR.JJI«LT,2) GO TO 11 
JJK* J jl ♦ 1 

IF ( JJI.GF.JW) RETURN 

1 1 continue 

JWWb JW 
OUMReP 

IF ( X J . E o« 0 » ) QUMRbI. 

DUMRNbRn 

IF (X J.EO, 0 • ) OUMRN«l. 

nUMXa(l.«XJ) »<T,-Xjl) 

OPT=l. 

«■! 

SUMXja ( Xjl+XJ ) 

12 CONTINUE 
IF (K ,GT 4 1) OPTs-1. 

IF (IcqWLT.EQ.I.AND.IWRAP.E Q. 0) J WW =J I N T_ 

nO 1 JSJJK,JWW 
IF (J.gT.JCALC) 60 TO 1 
TF( J,nE.JMAX*1) THJ»TH(J ) 

IF { JTnE. JMAX+1) THJ1=THJ 
IIbIMaX( J) 

II1»ImA x ( J-l) 

IF(K.c,T, 1) GO TO 50 
f IbJ 
T 1 1«1 

50 CONTINUE 

IF(J.eQ.JMAX^I) THJsTHW(II) 

TF(J.eQ.JMAX*1) THJIsTHWN(II) 

THXbTH J*SUMX J 
THXlEfHjl*SUMX.J 

THXXaTH ( j-1 ) »S|,lMX J 

OUM1 sz <II » j> 


niJM2a 7 N(II,J) 

nUM3s7N (in.J-1 > 

DUM4b 7 ( 1 1 1 * J-l ) 

TF(XJi.<5T,0.) o 0 TO 51 
OUM ls'l . " 

OUM2b] . 

nuM3*]i . 

nUM4*T# ~~~ 

51 CONTImUe 

YleDLlMR*DUMl*Sf N (THX) ♦DUMX*THJ 
V2 bDUmRn*D0M2*SIN(THX1)* D Umx*Twj1 
Y3bDumRkh»DUM 3*SIM(THXX) ♦DUMX#Tw{ J-l ) 
Y4 bD|ImR*PUM4#StN (THXX) ♦Ol)MX*TH ( J-J ) 

zi=z (titj) ~ ~ 

72sZM(H*J) 

73=ZMfIll* J-l) 

74=Z(lIl,J-l) 

IF <*J1 *FO.O. ) qO TO 6 

71 bZ] *C0S ( TH J ) 

72«Z2*C0S(THJl) 

73aZ34COS(TH(J-ln 

74bZ44C0S(TH(J.1, ) 

6 eONtf nOc 

Pl*P f il » j) -PIN f 
p2*Pm ( 1 1 * J) -PlwF 
P3 bPn (IT1TJ-1 ) -PinF 
P4bP(tIi,J-1)-pInjf 
XXIbXi 

XX?bX2 ~ 

XX3«s X? 

XX4cxT 

IF(X J , E Q , 0 7) 60 T0~~3 
XX1«R*C0S (THJ) 

XX2«Rm*C0S (thjT ) 

XX3=Rm«C 0S(TH( j-l ) ) 

XX4bR*C 0S (TH{ J.u ) 

3 OOWTJnUe 

TERHIbY^VZ — ■“ 

TERM3bY 3 -Y1 

0AXc( (Z1-Z3 )*TpRM1*(Z4-Z2)*TFRm 3)/2, 
DAZ=( rXxi-XX3)#TFRMr* (XX4-XX2)*TERM3)/2. 
OAXbAPS(DAX) 

OAZbarS(DAZ) 

0A7«-nA7*0PT 

PH1«PhE{II*J> 

PH2bPhEn { I I t J ) 

PH 3bpHeK! ( I Ii , j-i ) 

PH4BP H Eaiitj-n 

PHAVb (PHI ♦PH2+PH3+PH4) /4, 

OPTIbsIgNIQ. *PHAV) 

0AX=0pT1*0AX*0PT 
PAVb ( pl*P24P3+p4) /4. 

PL * P A V* D A Z 
DTsPAv*DAX 

XAVb ( xXl*XX2*XX3*XX4)/4, 

7 A V b ( 7I ♦ 7 2 ♦X 3 Tz“ 4 T/ 4 • 



DLb-Dl 

HTr-DT " 

7AV=ZaV-ZSHIFT 

XAVsXfiV.xSHIFT 

XAVs-xAv 

7AVe-7AV 

r>Me-DL*XAV*DT*7AV 
7OFt = ZLlFT*0L 
XTHRexTHR*OT 
YMOMbyMOM*DM 
1 FONT TmUF 
KrK* 1 

IF(ICOWLT.EQ.I) K=3 
TF(K,fQ.2) GO tO 12 
TF(Jw.EQ.JMAX) return 
viaJMAX + 1 

tf ( j.fiT . jcalo return 

TMAXXslMAX ( J) 

00 2 I B 2 * IMAXX 
THXaTHW(I)*SUMxJ 
T HXNeTHWN ( I ) *sijmx j 
THX1*tHW(I-1)*sUMXJ 
THXNJ a THWN ( 1-1 ) *$UMXJ 
0UMls7<I*U) 
niJM2s7N(Xf J) 

DUM3 s? N { 1-1 , J) 

DUMAr7(I-ltJ) 

TFfX j j.GT.O.) GO TO 8 

DUMloi. 

0UM2b| • 
oum3=i • 

0UM4*1 • 

8 YSl« e n!lMR*DUMl*«;iN(THX) 4DUMX*THW (I ) 

YS2cDuMRN»0 UM 2»SIN ( THxN) ♦DUMx»tHWN ( I ) 

YS3*0!IMRN*DUM3*SInj(THXN 1 ) ♦DUMX#THWN < 1-1 > 
YS4sni>MR*DUM4*SIN (THX1 ) ♦DUMX*TmW ( 1-1 > 

X X 1 B X j 

XX2*X? ~ ~ 

XX3bX? 

XX4«Xf 

IF(XJ,EO.O.) GO TO 10 
XX1**R*C0S (THX) 

XX2sRn*C0S (thxn) 

XX3*Rm*C0S(THXM1) 

XX4*sR#C 0S (THXl ) 

10 PlcP ( | » J)-PINF 

P2ePNf 1,J)-PINP 
P3=PN ( 1-1 t J) -PfNF 

p4aP ( fl » J) «PImF 

7SleZ( I» J) 

ZS2*ZN<It J) 

Z53cZn ( I»-l > J) 

7S4*Z(I-1 »U) 

IF(XJitGT.O.) GO TO 7 

CALL sWalL<R*Zs1? XX1>YZ»FX1 >FZl) 1 

CALLTSWALLTRN, zi>2, XX2 1 YZf Fy? »FZ2 } 



CA UL_5 W AL L ( RN, ?S3, X X3, YZ,F*3,FZ3j 

CALL <?WalL <R*ZS4, XX4*YZYFX4*FZ4) 

GO To 9 

7 CALL ?WalL 1 (THZ«R»ZSl »FXi fFZl ) 

CALL fWaLLI (tHZ«RN*ZS2*Fx2*FZ2'i 
CALL 5WALLI (THZ»RN*ZS3*Fx3*Fz3> 

CALL FWALL1 (THZ*R*ZS4,FX4*FZ4) 

ZSl*Zsi*COS’(THX> 

7S?sZ?2*C0S(THXN) 

ZS3»ZS3#COS (THXN1 ) 

ZS4*ZS4#C0S (THXl ) 

9 FXe(FXl*FX2+FX3*FX4)/4. 

FZs(F7l+FZ2*FZ3*Fz4)/4. 

TIWRApej 

TF(ZWRAP.EO.0.ANn.ICOWLT.EO.l ) f tWRAP=6 
THlao. 

I F ( 1 1 WRa P . EO . 0 ) TH 1 »TH ( J I NT ) 

7 1 ®Zs 1 *FLOaT ( 1 1 WRAP ) ♦ (ZSAV-YST ) *FLOAT ( 1-1 1 WRAP > 
7 2»Zs2#FLOAT ( T I WRAP ) + (ZSAV-yS?) *FLOAT ( 1-1 IwRAP) 
7 3 ®Zs3*FL0aT (IIWPAP)*(ZSAV«YS*»)*FLOAT ( 1 "I I WRAP ) 
Z AaZsA#FLOAT(TlWRAP) ♦ (ZSAV-YS4V*FLOAT(l-IIWRAP) 
Y 4eVS 4»FL0 AT(TlWRAP) * jTh1 * 7 Sa ) *FLOAT ( 1-IIwRAP) 

V 3 b Ts3*FL0aT ( I IWRaP) ♦ (ThI ♦7S^V*FLOAT ( 1 -IIwRaP) 
Y2aYc;?*FLOAT(IlWR a p)*(THl*ZS?)4FLOAT( j-irWRAP) 

Y 1sY«; 1*FLOAT( TlwRAP) ♦ (THl *z5l ) *FLOAt ( 1-1 IuRAP) 

TERM, -Y2-Y4 

TFRM3 tt Y3-Yl 

DA Xa ( <Zl-Z3 )«TFRMl* <Zg-Z4)*TFRM3)/2. 

0 AZa ( (XX 1 -XX3 ) #TERH 1 ♦ < XX2-XX4 > *TERM3 ) /2, 

DA Xa A rS { DA X ) 

DA2 C A R S (DAZ) 

PPT3«1 « 

DPT4el. 

J F (I r D WL T • EQ . 0 ) OPT3=S I GN ( 1 . , f X ) 

TF f ! CO^LT. EQYO ) 0PT4aSlGN ( 1 . *fZ> 

DAZe.oPT4*0Az 

DAXa. n PT3«0AX 

PAVa(pl+p2+p3*p4)/4, 

DLaPAv*OAZ 
DTaPA v*DAX 

X AWTxXl ♦ XX2>XX"3*XX4“ ) /4 • 

7AVer7UZ2*43 + 74)/4, 

DLa-OL 

DT«s*DT 

ZAVaZ A V-7SHIFT 

XAV8X A V-XSHIFT 

XAVa-xAV 

7AVa-7AV 

OMa-D L *XAV*DT*7AV 

7LIFTaZLlFT*DL 

XTHRsxThR*DT 

YMDMbyM QM *DM 

I F ( I . F Q • I S ( 3 » J V • 1 ) GO TO 132 
TF(I.fQ.IS<1,J)-1) GO TO 92 
GO TD 2 

132'70FTr=7LIFT 


XTHR^sXTHR 
YMOMreYMOM 
DO To 2 

92 7LIFTS=7LIFT 
XTHRSbXThR 
VMOMSsYMOM 
2 CONTimUf 

RETURm 

END 


SUBROUTINE MOTHER 

COMMON "/STREAM/ XMAST*XEnT*FSX,FSZ 
COMMON /H/ ISIM 
COMMON/M/ IS (7* 1 OJ_ 

COMMON /YHR/" RTNF7Z^IPT*xTHR,YmOM, JJI,ZSHIFt*XSHIFT 
common /$/ RI *K0UNT*K0UNTS. IcOwlT 

COMMON /A/ Ql»THMAX*TH(lo> *R »Z (40,10) *P(40*l0) »PHp (40*10) * 

1 Q ( 4 0 , 1 0 ) *SI (40*10) * H ( 40 » 1 0 ) * Pw I (4 0 * 1 6 ) * RHO( 40 1 1 0 ) * GAy (40 * 1 0 ) 
COMMON /c/ I MAX do) • JMAX*IST aRt*KOUNTf*KOUNtP 

COMMON /D / U W (40) * V W (4Q) ,WW (40)*XW (40)*YW (40)*THw (40) 

COMMON /I/ XJ 
COMMON /V/ XJ1 

COMMON /WRTOMO/ XO ( 3 ) t XI (3 >, pi w (20 )« Ql W (20 ), Hi W (20 )* S T 1 W ( 20 ) * 

1 PH II w ( 20 ) * PHEl W ( 20 ) * RH01 w (20) 

COMMOn/P S/ZR ( 4o * 2 ) *PR (40 *2 ) .OR >40 * 2 > * HR (40 » ? ) * SIR (4o ♦ ? ) *RHOR(40*2) 
1 * PHI R (40,2) *PHFR(40*2 ) »ThR(2) »THWR(40) 

COMMON /R / J* XCN, XC* XXltJW* I NT, IC0WL*RC0WL 
COMMON /w/ ISImEX*IDUMMY* J lNT»7nUMMY(40) *THWW(2) * J01» J02 
COMMON /IQ/ NUmEXP*ZSAV 

COMMON /wR7“Ywpap ~~ 

xj2«l .-Xj 
*J3 b) ,-XJ l 

fFTIWAp. EQ. 1 .OR . ICOWLT ,£(5 . 0 ) «© TO 5o 
f MAS stMAX ( J jNT) *1 
00 5] IcltlMAS 
7 R ( f » \ ymZ ( I * JINT) 

P R ( j * 1 ) sP ( T • JINT) 

0 R(I*l)aQ ( I * JINT) 

h R ( fi H =H (T. JINT ) " 

SI R(T»1)bSI ( I * JINT) 

PHIR(T*1)bPH1 (I, JINT) 

PHFR (I * 1 ) ePHE ( I • JINT ) 

RHOR(l*l)sRHO(I*JINT) 

7 R ( T *2) «Z ( T * JINT+1 ) 

P R(T*2)sP (I* JINT* 1) 

0 R { ir * 2) sQ ( T » JINT* 1 ) 
w R ( T *2) sH (f»JlNT*l) 

ST R(I*2)sSI ("I. JINT* 1) 

PHIR(t*2)»Ph1 (I*JINT*1) 

PHFR(T*2)=PHE(I* JINT*i) 

RHOR ( t"» 2 ) *RHO ( I * JI NT* i ) 

51 CONTINUE 
xjiSbxJ] 

XJ?SbxJ2 
XJ3SbxJ3 
XJS«XJ 

' 50” CONTINUE 
300 jfMASScO. 

TCHECK*1 
2 cONTtmUe 

jQejMfiX-} 

IF(ISIM.EQ.O) jQbJMAX 
no 1 jsi , jq 

TBf) 

cUMZb) • 

-fp-jyj, . G T . 0 V) — OUM zs , 5*(z“( I*T*J) *Z ( 1*1. J* IT) 



TF ( IpTM.MEVO .00 .'J'.NE.'JMaX) YHd3~bTH'( J+T) 

IF ( ISJM.EQ.O.AMD. J.EQ, JMaX) THD3=THW ( I * 1 ) 
nrHsTH p 3-TH( 

IF‘( J.fQ, JINT.AND. ICOWLT.eO. 1 ) njH=3, u 15926/1 8. 
nUMRsi". 

IF(XJ.Gt.O.) OllMRsR 

" S'3 » D Z #t) ZT"( OT H* plj M7*DUM R j *»? 7 

S3s:SopT (S3) 

IMAXlalMAX(J)-i 

T’PTI C d^L TTEQ • 1 ) IMAXialS (3, J) «* 

IF {J.pQ.JlNT.AWD.ICOWLT.EQ.l) TMAX1 =Is (3* J) -I dUMMY-1 
IF ( J.mE. JINT.OR.ICOWLT.EO.O) Gn TO 53 

XJlBi. 

XJsO. 

xj?«i. 

XJ3=0. 

TS3j*iS (3« J) -1 
I0UMM1 *I0UMMY*1 

00 55 la I D U MMTV 1 5 3 J 
t«sI-InUMMY*l 
7(L>J) S Z(I*J)-7SAV 
P (X, J) =P (I,J) 

0 (L.J)sQ ( I * J) 
m (L*J)®H (I,J) 

SI (L,J)bSI ( I « J) 

PHI (UJ)bPHI (I,J) 

PHE( L; j)«PHE<I *J) 

RHO ( L « J) aRHO ( I « J) 

55 cONTtnUe 

7 H . J ) eZ R(1t?) 

p ( 1 1 JT«P R ( i » 2 ) 

o ( i • j) bQ roi?) 

H (l f J)eH R ( 1 * 2) 

SI (l ,J) bSI R(j*'j>) 

PHI M ♦ J) sPHIR ( 1 »2) 

PHEM ;J)»P HER ( 1 » 2 ) 

RH0(i,J)sRH0R(i»2) 

KKbI 

56 KKbKK+1 
THTbDtH*FLOAT(kK-D 
00 54 IbIDUMMI t IS3J 
LsI-InUMMY+1 
CB(ZR(I*1)-ZSAV) /X0<1> 

OBC # xi <1 ) 

02bD»0 

RDUMexO ( 1 )*C 

OUMBppUM*SQRT(PDUM*RDUM+02) 

R3bC*(X0(1)*X1 <1)*THT) 

S«.5/p* ( R3*S0RT (P3*R3*D2) -OUM) 

P <l,J*l> 8 P R<I#1>*P 1W(L)*S 

0 <Lt J»1 ) 8 Q PdtlUQ 1W(L )»S 
w (L*wl*l)*H 9 ( 1 • 1 ) +H 1 W (L) *S 
SI (L.J*l> s SI R(T«1)«SI lW(U»S 

PH I(L«J»l) 3 PHIP(T«i)*PH II W (L) 

PHE(L,J*l)=PHER{I,l)APHElW(L)*g 


PHO(L, J*l)=RHOR(I t l) ♦RHOlW(t)*C 
7(L*J*l)sR3 
5* CONTINUE 

7(lt J» 1 )=Z< 1 ± J ) 

P (1,J) 

H ( 1 • J* 1 ) 3 H (1»J> 

O ( 1 , J*1 ) =0 (1,J) 

SI (l,J4l)=SI (l.J) 

PHI d . J 4 I ) »PHI ( 1 ♦ J) 

P Hg ( 1 , J» 1 ) «P HE ♦ J) 

RHO ( 1 . J* 1 ) =RH0 (1 ♦ J ) 

53 CONTINUE 

DO 6 I=1*IMAX1 

IF(J.pQ.l) S2*7 ( 1 4 1 » J ) -Z { I » J ) 

SI 3 S 3 

S»bS ? 

OUMZc J • 

iFdji .gt.O.) nUMZ 3 * 5* (Z (!♦ 1 * J> ♦Z(X«1,J*1) ) 

DZ«7(T* 1 t J)»Z(f*lt J*I ) 

I F (I S I M , NE • 0 • OR .J.NE.JMaX) THd3 3 TH( J 4 I) 

IF dSjM.EQ^O.ANlD. J.EO. JMaX) THo3*THW { T ♦ 1 ) 

IF( XJl. GT.O., AMD. ISIM.EO. 0. AND. J. EQ. JMAX) THP3*( THW( !♦?) ♦THw(I) )/2. 

nTH«TwP3-TH( J) 

IF ( J.eQ. JINT.anD.ICOWLT.eQ. 1 ) DTHeS.l 415926/1 8 . 

S3sD7#D24 (DTH*dUm z *DUMR ) *#2 
S 3 «SopT (S 3 ) 

IF(ISiM,NE*0,OR .J*NE.JM A X) THp2 3 TH ( J*1 ) 
IF(ISIH.EQ.O.AND.J.EO.JMAX) THP?srHwd ) 

XX? 3 (xJ? 4 XJ*COS <THP 2 *XJ) )*R 

VY2*Xj2*THP2*XJ*R*SIN(THp2*Xj)*XJl*Z(T»J*l)*SlN(THP2*Xjl) 
7 Z 2 *(xJ 34 XJl*C 0 S(THP 2 *XJl) 

XX3^XJ?^Q*C0S(THP3*XJ) )*R 

YY3sXj 2*THP34XJ*R*SIN(THP3*XJ) ♦XJl*Z(I*l*J«’l> *SlN(THP3*Xjn 
ZZ3« ( x J3*XJ1*C0S ( THP3*X Jl ) ) *7 < f ♦ 1 » J* 1 ) 

DZ 3 ZZ3-Z72 
OYBVY 3 -YY 2 
nX«XX 3 -XX 2 
$2cD 7*0 74 D Y*D Y ♦ D X *0 X 
S2eSooT ( S2 ) 

STcSl»Sg»S3 4S» 

UleO (T *J) *COS (PHE (I *J) > 

IF (Xj. GT.O.) ui«Ul*COS(TH<J)V-!sri«J)*TAN(Sl(i*J) )*SlN(TH(J) > 
RUlcRwO ( I » J) *U1 
U2=Q(T *j4l)'*C0S(PHE (I*J*l) ) 

IF (XJ. GT.O.) U? 3 U2»C0S(ThP2)-0>T*J*1)«TAN(SI (I*J 4 l))»siN(THP 2 > 

RU2sR h O(I» J4l)4Ug _ 

U3«Q ( T ♦ 1 * J+l ) *C0S ( PHE ( I* 1 * J4 \ ) \ 

IF (Xj. GT.O.) U3=U3*C0S(THP3)-Qf 141, J4] )*TAN(SI (I+1*J*1) ) # SIN(THP3) 
PU3cRwO ( I4l , J4i ) «U3 
U4*0TfMTJ^ # C0S<PHE<l4l*j) ) 

IF (Xj. GT.O. ) U4 bU4«C0S(ThU) ) -0 1 1 4 1 1 J) *TAN ( S I ( !♦ 1 * J) )*SINCTH< J) ) 
RU4«RmO(I*1,J)#U4 

PO 3 ( C ROi 4RU2T*si ♦ {RU 24 RO 3 ) * S g ♦ ( R 0 3 ♦ R U 4 ) * S 3 4 ( R U 4 ♦ R U 1 ) *S4 > /2. /ST 
ZZl«(xJ 34 XJl#C 0 S(TH(J)*Xjl) 

7Z4b (xJ 34XJ1*C0S (TH(J)*XJ1 ) )'»Zf 

YY 1 3 XJ 2 *TH ( J ) ♦ XJ*R«S I N ( f H < J P» X J > 4 X J 1 *Z ( I * jY*SI N < TH ( J ) • X J 1 ) 



YY4* xJ?«TH(J ) ♦XJ*R*SIN(TH(J)*YJ)*XJl4Z(I*i , J)*SIN(TH( J)*XJ1 ) 
DAX«rt22'l^ZZ3')#l'VY2'-y'Y'4'r* <ZZ2-7Z4 )*(Yy3-YY1 ) >/2. 

DAxsAoS(DAX) 

IF(Xji.£G.O. ) GO TO 60 

?u= ( z 7 i * j ) * z( i ♦ j* i n /z. 

ZUe(Zf I*ltJ)*Z(I*l*J*l) )/2. 

DAXb ( 7 U*ZU-ZL*7U*DTH/2. 

■60^(rKITTMlJE " ‘ ‘ 

GO TO (3*4*5) .TCHECK 

3 OMsRljiDAX 

xmas;<cXmass*dm 

GO To 6 

4 Vl«(0(I*J)/COSfST (I*J) ) >#*2 

RmRtiT^r*vi7?7n»Ror ~ 

V2e(0'(l, J*l)/CoS(Sl (I* J+l) ) )**? 

H2e(H(I,J*l>*v;/2.)*RU2 
v3s ( o ( I ♦ 1 1 J^TITTCOS ( S I ( I ♦ 1 * j* 1 ) n **2 
H3s(M(I+l • J^l) *V3/2. )*RU3 
V4s(0(I*l*J)/C0S(Sl < I ♦ 1 * J ) > )*•? 

HA* { h ( I ♦ 1 »J ) ♦ V 4 / 2 « r*Ru4 

WTsCi*( (H1+H2)*S1 + (H2*.H3)*S24 (H3*H4 )*s3t (HA^HI )*S4>/2 /ST 
dht»ht*dax 

XEWXfM^oHT 

GO TO 6 

5 RUUl«pUl*Ul 
Wl«0(I*J>*SlN<PHE {I*J,> ) 

IFCXji.GT.O*) WlsWl*COS(TH(J) ) -Q (I»J)*T aN(ST(I*J) ) *SIm ( TH ( J) ) 

PUWlepUl*Wl 

PUU2ep02*U2 

W2«Q(T»J*D*SIn(PHE<I*J41) ) 

TF(Xj) .GT.O.) w2sW 2«C0S(TH(J) ) .Q (I t J*l WAN f SX < I * J*1 ) ) »SIN (TH { J) ) 

dUW2bpU2*W2 

PUU3*pU3*U3 

w3pQ ( 1 * J* 1 ) *SIN (PHE't I ♦! » J*’l ) ) 

IP (XJi .GT. 0 a ) w3eW3*COS(TH(J) ) .Q < I ♦! * J* 1 ) *TAhl ( SI ( I *1 » j.,1 ) )*SIN(tH 
1 (J) ) 

PUW 3brU 3*W 3 
PUU4epU4*U4 

w4*Q ( j ♦ I «J)«SXN(PHE<X*1 » J) ) 

TF(Xjt »GT»0.) W4«W4*C0S (TH ( J) UQ ( !♦ 1 » J> »TAN (SI (!♦ 1 * J i) »S IN( TH 

1 (J) ) 

RUW4bPU4*W4 

PUU« ( (RUU1*RUU?)»S1* (RUUgTRUU3v»S2* (RuU3»RUUA V»S3 * (PU u4»RUU1 > »S a ) 
1/2. /ST 

PUws ( (RUW1TRUW2) *S1+ (RUW2+RUW3) *S2 * (RuW 3*RUR4) *S3* (RUw4*RUWl ) *S4) 

1/2./ST 

PA V«S ( 7 P ( ft J ) *P ( I . J* 1 > ) *S 1 ♦ (P ( I , J* 1 ) *P(X + lt J*fj )*S2* (P(I4l#J4l)4 
1P(IM ,J) )*S34(P(I*1*J)4P(I,J) )*s4) 

1/2. /ST ____ 

PAV=PaV-PINF 

XXIb ( XJ2*XJ*C0S (TH ( J) *X J) ) *R 

XX4sX x 1 

DAX« ( ( ZZ1-ZZ3) « ( YY2-YY4) ♦ < ZZ2-7Z4) • ( YY3-YY1 ) ) /2. 

DAXoarS (DAX) 

IF (Xjf.gQ.O. ) GO to 

ZU«(Z(X t J)4Z(I.J4l) )/2. 



7U* <7 < 1*1 « J) * 2 < 1*1 » J*l) )/2, 

HAXb (7U#ZU-ZL # 7L)*DTH/2, 

61 CONTINUE 

HAZrj (XXl-X X3)«( V y2-YYA) ♦ ( XXg-xx4 ) * < Yv 3»YY1> )/2. 
OA7=ApS (nAZ) 

DMVXbpUU#DAX*PAV*DAX 
nMVZtspUW*OAX4PAV#OAZ 
FSXsFsX*DMVX 
FSZsFsZ^HMVZ 
6 CONTINUE 

TF (J.mE, J I NT, OR. I COWL t .EQ.O) Gn TO 1 
IF(Kk.GE. 9 ) Gn TO 64 
TMAX] I P I MAX 1 ♦ 1 

no 62 IeJ * I MAXI 1 
7 ( T * J ) *Z ( I • J* 1 ) 

P ( T « J) eP ( I *J*1 ) 

0 (TjJ)eQ ( I * J ♦ 1 ) 

H ( T » J ) sH (I.J+l) 

51 (l,J)*SI (I*J*1) 

PHEtlf J)sPHE 

PHO ( I « J) sRHO ( I • J* 1 ) 

62 rONT T nUE 
GO TO 56 

64 00 65 1*1 * IMAS 

7 (TVJFbZ R(t* 1) 
p (I,J)*P R < f * 1 ) 

0 <T,J)*Q R ( T » 1 ) 

H ( I , J) bH R ( T * 1 ) 

5 I (T,J)*Sl R(I.l) 

PHI ( I * J) sPHIR (1*1 ) 

PHE(I, J)«PflER (1*1 ) 

PH0(I,J)bRH0R(I ,1 ) 

7 <I*J+1> B Z P(I*2) 

P ( T * J* 1 ) =P P ( T « 2) 

0 (T.J+1)*0 P ( T , 2) 

H ( T • J+ 1 ) S H P ( I *2) 

SI (I,J*D*SI P ( I * 2 ) 

PHId,J*l)*PHlP(I,2> 

PHE < I « J»1 ) g PHEP( T *2 > 

PHO (I , J+ 1) «RHOP (I • 2 ) 

65 CONTINUE 

XJ*Xj$ 

x j r*» x j l s 
XJ2 bXj2s 

Xj3*Xj3s 

1 CONTINUE 

GO TO (10*11*12) * ICHECK 

10 TF(KOU NT, EQ»0 ) XMAST g XMASS 

CIsXmaST/XM^SS 

XENbO. 

I CHECK S 2 
GO TO 2 

11 IF (KOliNT.EQ.O ) XENTbXEN 

C2bXenT/XEN 

IF (KOiJNT *N£T 0 “ ) CALL UNOWAT (Cl *C2) 



TF (KCMiNT.NE.O) GO TO 12 

rsxeffv. 

TCHECK=3 
no To 2 
12 cONTImUe 
PFTURm 
FN 0 


r 

i 



SUBROUTINE SETN(IQ) 
common' /WR/ 'IWbAP 

COMMON /ZNOERV/ OPZN ( 40 ) ,DUZN < 40 ) *D VZN ( 40 ) *0WZN (4 0 ) 

COMMON /P/ J* XCN*XC»XXI*JW*INT.ICOWL*pCOWL 

COMMON /AlXRl'7 A N (4 0 * 1 0 ) * T N (4 0*10) *GAmN (40 * 1 6 > *XPLAMN (40 * 1 0 ) * 

1 VMLAMn (40 • 1 0 ) 

COMMON /ALLR2/ PON (40 * 1 0 ) *HQN (AO * 1 0 ) *qQN (40 , 1 0 ) * SION (40 • 1 0 ) * 
lPHEQN (4 o* 10 ) *PmION (40*10) • RHOQm (40 ♦ 1 0 ) VgAMQn (40 * 1 0 > 

COMMON /A/ XI *THMAX»TH ( lo) *R * Z (40 . 1 0 ) * P (40 * 1 0 ) * PHp ( 40 * 1 0 ) » 

1 Q ( 4p , 1 Q ) *SI (4Q*1Q) *H (40, 10) ,PuI (40,lo) *RHO(40*l0 ) *GAm ( 40*10) 
COMMON /B/ PN (40* 10 ) * PH IN (40 * 1 n ) f RHON ( 40 * 1 0)*HN (40 * 1 0 ) *ZN(aO»10) 
COMMON /C/ IMAX (10) ♦ jmax,istaRt.kountf*kountp 
COMMON /0/ UW (40) * V W (4o)*WW (40)»XW (40)*VW (40)*THw (40) 
COMMON /E/ OWN (40 ) » VWN (4’d ) * WWN UO') * XWki (40 ) * YWN (40 ) •THwn (40 ) 
COMMON /H/ ISIM 

COMMON /J/ ON(40*10) »PHEN(40*lo) »SINN(40*10) *XPLAM(40,10) * 

1 xMlAM"("4o • 10) *FP (40 ) »FM (40 ) » A (4n , 10 > 

COMMON /L/ ALPHAN(7*10) *ALPHA (7*10> *BfTAN( 7, lo) #0ETA (7*10) 

COMMON/M/ IS (7* 1 0) 

COMM (Vn 7 N/SIQ(40V 10 )^PQ74^)Tl 0 )«pHEQT 4 fT» 10), MO (40 * 1 0 ) * PHI 0 ( 40 • 1 0 ) 
1 QQ ( 4 0 • 1 0 ) *RHOQ (40*10) *GAMO(40*1 0) 

COMMON /O/ ALP(7*10) *aL PN ( 7 » 1 0 S 
COMMON / Q/ xCOwL 
COMMON /S/ RI.i<OLINT»KOUNTS* IcOwlT 
COMMON /TEM/ T (40*10) 

COMMON /PN7“FPn (407T0TTFMN (40 * 1 0) 

IF(IO.EO.l) GO TO 1 
IF(R.OE.RCOWL) GO TO 100 
DO "761 5 Me 1*7 
DO 7677 J=l*10 
ALP(M,J)aO. 


ALPN (M» J) bO", 

a l pm an ( m * j ) B 0 • 

RETAN(M, J)s0. 
ALPHA (M,J) BO, 
BETA (M* J) so, 
7677 TS(M f j)eO 
7615' CONTINUE 
100 00 3535 M*i*40 

no 3536 j al *1Q 

F-PN (m; J) eO. 

FMN ( M , J ) eO • 

P 0 (M» J) s O, 

H Q ( M » J ) a 0 , 

0 0 ( M • J ) *0 • 

SI Q(m*J)* 0 # 
PHI0(M» J)aO, 
PHEO (M» J) sO, 
RHOO ( m* J) sO , 
P5AMQ(M* J)aO, 

3536 continue 

nPZN ( m) ao, 
nlJZN { M )a7r, 

OVZN (M) s(l, 

OW7N (m) so, 

3535' CONTINUE 



1 CONTtwUE 
~jwsjm a~x*t 

TF ( ISt M «EO* 1 ) jWsjMAX 
00 2 J=l,Jw 

TMAXjelMfiX Q)~ “ 

TF (R,/?T.XCOW|_-l *E-06.AND,ICOWLr.EQ.l ) iMAXJalMAX J*1 
HO 3 I»1 » IMAxJ 

? NTfTJTsZ (TfJ) ' 

P N(f*J)«P (TfJ) 

0 N(jfJ)=Q (TfJ) 

M N - ( y f j )sH (T vj) - 

A M(T*J)= a (TfJ) 

T N(f*J)«T (TfJ) 

S TNNTrrjys ST (’fTj) ~ 

PHFN(t*J)- p HE(Tf J) 

PHIN(T» J)sPHI (I f J) 

PW W 11 TJ r* Rh OT I TJ ) 

OAMN(if J)aGAM(I» J) 

XPUAMm(IiJ)bXPUTM(I*J) 


VMLAMN(lf J)eXMLAM(ItJ) 
PO N ( I f J ) sPQ (TfJ) 

HQ N ( f * J) *HQ (IfJ) 


QQ N ( l # J ) sQQ (ffj) 
SIQNflf J)«*SlQ(If J) 

PHIQ N(IfJ)ePHlQ <I*J) 



P H E Q NTTTjT* P H £ OTTfJ ) 
RHOQ w(IfJ)*RHOO (I*J) 
GAMO M(IfJ)=GAMO (I*J) 


TF ( J • nETJFAX * 1 j GCTTO 3 
U WN(f)«U W ( I ) 

V WN ( j ) sV W ( I ) 

W WNTp "«¥ W ( j ) 

X WN ( I ) eX W(I) 

Y WN ( I )«Y W ( J ) 

THWN ( T T=TH w ( I ) 

3 CONTINUE 

(So A Mai *7 

A LP N (MTJl eALP (H * J) 
RETA N (M» J) «BETA (M*J) 
ALPHAN(Mf J)«sALPHA (Mf J) 

A CONTINUE 
2 CONTINUE 

return 

PNO 


SUBROUTINE indata 

C O’M M o N 7 S T RE A~M/~ X M A S T VX E N T » F S X » F S Z 
common /JF/ jfinal 

COMMON /J/ QN ( 40 * 1 Q ) * PHEN ( 40 • 1 ft ) t SINN ( 40 • 1 0 ) * XPLAM (40,10) • 

1YM LW| 4 0 ,10 ) . F P ( 4 OT , F M ( 4 0 ) , A ( 4 n , 1 0 ) 

COMMON /TEM/ T ( 4 0 * 1 0 ) 

COMMON /IVY/ IVY,KCORR, I AV 

C 0 M M 0W~/ t 7 X ITT H MflX«T H(1 6 ) * R • Z ( 4 0 , 1 0 ) * P '( 4 0 » 1 0 ) * PHp { 4 0 * 1 0 ) * 

1 Q(4n,l0) »SI (40tl0) *H{40,10) ,PuI (40tl0) ,RHO(40*l0) *GAm(40, 10 ) 
COMMON /C/ IMAX (10) * JMAX,ISTaRt,KOUNTf»KOUNTP 
COMMON /O/ UW (40 ) * Vlii ( 4 0 ) * W W (40)»XW (40), YW (40)*THw (40) 

COMMON /G/ Al 0*9) *A2 (3«9) *A3 (?,9) »RRT (3) *RR2* (3) ,RR3 (3) 

1 ,NUMl.wS,NUMUWS,NUMSWS 
common /»/ IS I'M 

COMMON /!/ XJ 

COMMON /L/ «LPhAN(7»10) »aLPHA(t, 10) tBFTAN(7*10 ) *RETa(7«10) 
COMMon/M/ IS (7, 10) 

COMMON /O/ ALP (7 * 1 0 ) * ALPN ( 7 * 1 0 > 

COMMON/P/ KC1 #KCP, KS1 ,KS2 
COMMON / 0/ XCOWL 

COMMON /R/ J*XcN,XC»XXI,jW,lNT.ICOWLtPCOWL 
COMMON /S/ Rl*KOUNT*KOUNTS, I cOwlT 
COMMON /V/ Xjl 

COMMON /w/ ISIMEx, IDuMMy, JINt,70UMMy ( 40) ,THwW(2) , JDl * JD2 
COMMON/EX/ KTPUN ( 3 ) 

C:OMMM"7fHR7~P T NFTZLT FT fX T H R VY m 6 mV JJ I , ZSH I FT, XSHIFT 
common /xf/ xfin 
common /IO/ NUmEXP,ZSaV 
common /W'R/ I MpAP 

common /ISW/ JCALCtISWEEP»XlNSP(lO) ,x? 

COMMON /sPE/ KOUNjC 
COMMON /TSE / KOUWSP 
COMMON /WO/ XJSS 

COMMON /SCLTM/ ZLlFTc,XTHRC»YMnMC,ZLlFTSfXT H RSfYMOMS 
COMMON/'XSTP/XSTP 
DATA xlNSP/10*6,/,KOUNSP/0/ 

DATA t h W/40*0,/ 

1 00 FOR M A T ( 1 6 15) 

101 FORMAT <7F10. 3) 

102 FORMat ( 8E1 0 , 3) 

FOUNT a 6 
JCALC^OO 

READ (S.9100)KOl)NTF,KOuNTP.ISTAPT,IVY,lAV,KcnRR f JFINAL. 
l'VKtPUNd) ♦I«l*3) »XSTP 
9100 FORMAf(10l5,ElO,0) 

RE AD (5, 100) JMa x, I SI M , I S IMEX , I «.<RAP_, NUmE XP , I S WEE P , ( I MA x ( J ) , Ja 1 , JM A X 

1) 

BEAD (** 102) R»X J*Xjl* XcOWL tRcO^L* XFIN, ZS aV,p INF 
xJSSs yJ 
B I sR 

IF(ISTART.EQ.l) REAO(5*2lO) kOunT,R 
2 1 0 F 0 R M A T < 1 5 * E 1 1 , 3 ) 

iF(R.o,T.RCOWLr TSIM=ISIMEX 

jWejMAX* 1 

IF (ISlM.EOfl) JWsJMAX 

IFTISwEEPTEQ. l ) READ ( 5 * lo 1 > ( X'tnSp ( J > , J« 1 Vjw ) 



TF ( ISwEEP.EQ. 1 ) KOUNSPsloOOO 
KOOWTs* fount 

Xlsp 

IF(ISTART.EO.I) go TO 211 
TF nSwEEP.NET. \) GO TO 1900 
JCALCel 
JMAXejMAX^l 

)We> j W -j - - 

TMAX ( jMAX ) ®IMAX ( JMAX-1 ) 

1900 CONTINUE 

PEA'Dl^TTo 1") — ZCf FT * XTHR , YMOM * 7 Sw I FT • XSh I F T 
00 5 J=1.JMAX 

TF ( ISwEEP.EQ. 1 , AND. J.E0.2) GO TO 5 
MMAXbjMax(J) 

READ ( 5 » 1 0 1 ) TH ( J) ♦ (Z ( I » J) tI = l»MMAX) 

IF (XJ.EO.O. .ANO.XJ1.EQ.O, )GO Tn 5 
TH ( J ) bTH { J ) /57 . 3 

5 CONTINUE 
IF(IST m .EQ«0) 

1RFADT5TT0^D MM A X TTZTt * JW ) ♦ t ■ 1 * MM AX ) 

106 FORMAT ( I5» (7El 0,3 ) ) 

TMAX ( jW) bMMAX 

2H CONTtmOe “ " ~ 

WRITE (6,400) 

400 FORMAT (1H1«24X,*T HREE DIMENSIONAL ChARACT 
IE R I ST" I C S*///> 

IF(Xj.EQ.O.) WRITE ( 6,40 1 ) RI,R 
IF(Xj,NE,0«) WRITE (6*402) RI.R 

401 FORMAT rioX**THr~TNlTlAL CARTESIAN X COORDINATE I S**El 3.5//1 OX * 
1*THIS Run STARTED at X C00RDINaTE*fEl3*5/> 

402 FORMAT<ioX**THE INITIAL RADIUS OF CURVATURE IS**E13.5//1 OX. 

T»thts run started with a radius of*#eT3.5/) 

WRlTEf6,403) KOUNT*KOUNTf*KOUNtp 

403 FORMAT(10X,*THlS RUN was STARTfd aT KOUNT 8*. 15.* WILL RUN TO KOU 
1 NT =#.I5, # AND WILL PRINT EVEPY**I5*~* KOUmTS*/) 

tSIMPsISlM^l 
WRITE (6,404) IslMP 

40"<rirO"RMrnioX**THERE — ARE**r5** W^lLS OF SYMMETRY IN THE ‘internal "flo 
lw*/) 

wRI TE (6 ,405 ) XCOWL 

405 fORMatIioXTAThe x COORDINATE Of THE COWL ‘IS** E13.5/V 
TF(XJ,NE,0.) WRITE<6,406) RCOWj 

406 format (iox.*the Radial distancf to intersection OF COWL LIP AND SI 
IDE WAp- lS«*El3.5/> 

WRITE (6,2072) *FIN 

2072 FORMAT(10X**THE X COORDINATE Of THE END OF THE VEHICLE UNDERSURFAC 
IF IS*,El3,5) 

c lower wall geometry 

READ (s 1 1 00 ) NUMLWS 
O0 250 Ib1*NUMlWS 

READ (5*102) RRj (I) , (Al (I, J) , J«T,9) 

250 CONTINUE __ 

: upper wall geometry 

READ ( 5* 1 00 ) NUMUWS 
DO 251 I si * NUMUWS 

READ (5* 102) RR 2 (I) » (A 2 (I, J) , jsi ,9) 



251 CONTINUE 

IF (IStM.eO.1) GO TO 53 
C SIDE WAUL GEOMfTRY 
READ ( 5 * 100) NUmSWS 
HO 25? I®1 • NUMSWS 
READ ( 5* 102) RR3(I) ♦ ( A3 { I , J) • J=i , 9 ) 

252 CONTINUE 

53 CONTINUE 
WRITE'(6,2010> 

2010 FORMAT*// »35X**UOWER WALL COOdOINATEF*) 

WRITE (6,2071) 

no 2o&o i s i t numlws 

IF ( (1*1 ) .GT.NUMLWS) GO TO 2041 

WRITE (6 ,2042) RRl (I) ,RR1 (1*1) • '( A 1 ( I * J ) t Jel,R) 

GO TO 2040 

2041 WRITE (6,2043) PRi (I) * (A1 (I, J) * jsl *9) 

2040 CONTINUE 

WRITE (6,2020) 

2020 FOPN/vT ( / / 35 X , *UPPER WalL COORDINATES*) 

WRITE V 6 *207l ) 
no 2050 Ib1*NUMUWS 

IF nun .6T. NUMUWS) GO To 2 0 5 1 

WRITE (6*2042) pR2(I) *RR2(I*1) Ma 2(X*J) *J*l*o> 

GO TO 2050 

2051 WRITE (6,2043) RR? ( I ) . ( A2 ( I , J) * J«l ,9 ) 

2050“ CONTINUE 

IF(IsiM.EO.l-) GO TO 54 
WRITE (6, 2030) 

2030 FORMAT <// 35X,*SI0E wall coordinates*) 
IF(XJ.EO.O.) WRITE (6,207l ) 

IF(Xj.GT,0.) WRITE (6 *2070 ) 

00 26*0 I «1, NUmSWS 

IF C II + l) ,GT, NUMSWS) GO TO 2061 

WRI TE (6*204 2) rR 3(I) »RR3(I»l ) » >A 3(I»J) » J*1 *Q) 

50 TO 2060 

2061 WRITE (6,2043) PR3 ( I ) , ( A3 ( I , J) * .| a l ,9 ) 

2060 CONTINUE 

2042 F OR M AfTfo XT1 1 E f 1 • 3 ) ~ 

2043 FORMAT <1 OX* El 1.3 *4X*«END**4 x,9f1 1.3) 

2070 FORMAT (15X**R*,4x,*T0#,4x**R**45X,*C0oRDINATES*) 

2071 FORMAT (l5X**X*,4X,«T0**4XV*X**45X,*C00RDINAfES*) 

54 continue 

TF(lSfAP T.EQ.l) GO TO 212 

temp*o* 

TTEMPsO. 

no 6 JS l,JMAx 

IF ( f sweep .eg. i.and*j.eq»2) GO to 6 

MMAXbiMaX ( J) 

READ ( 5* 1 0 1 ) (P (I»J) »Ial»MMAX) 

READ (5*101) (PhE(I.J),Ib 1,MMAX) 

READ (5* 1 01 ) <Q (I»J) »I*1*MMAX) 

PE A 0(5*101 ) (SI ( I* J )_* I a U_MMA X _ 

R E A Dif 5 * 1 0 1 ) ( H ( I * J ) * I = 1 * MMA X 1 

READ (5*101) (PMl (I* J) *Iei ,MMAX) 

DO 531 1*1* MM A X 


SI (I.j)sSl U*J)/«57.3 
I F (H { !♦ J ). LT . loO 0 0. >TEMP=1 . 

TF(H( ft J> .LT.10000.) TTEMPaH(I*,j) 

T(I*J)*FT(P(ItJ) «PHI (I«J) ) 

IF (TemP . E'O • I • ) w (I. J > = T{ I , J ) 

TF(TEmP.EQ. 1.) T(I, J)eTTEMP 

TEMPeft. 

YTEMFit>7 - 

PHO(i;j) B RHEQ(H(I,J) .P(I*J) ,PHT fl,j) ) 

GAM ( I , J) cFGAM (r ( I * J) « P ( I « J) ,PHT(I.J) ) 

Mi» J)*SOR'T"(GAM(I*J)*P(I*J)/RHft(I. j) ) 

CALL yLAM(Q(I»j) *A(I*J) *PHE(I#J> *XPLA m(I*J) « XMLAM ( I , J ) ) 
531 CONTINUE 

6 CONTINUE 

TF(IsIM.eO.I) return 

JtsJW 

MMTXb f MaxTU) 

°EAD (5*101) <P (I*J) «I=1»MMaX* 

READ f 5 ♦ 1 0 1 ) (H (It J) «Ial«MMAXt 
PEAO (5 * 1 0 1 ) (PHI ( I * J ) » I * 1 1 MMfl X l 
READ ( 5 * 1 0 1 ) (UW ( I ) * I«1 *MmAX ) 

PEAD(5*10l) <WW(I) «Ib1,MMAX) 

00 7 t«1*MHAX 

TH0bTh<JMAX)*Xj 

XW(H*R#cOS(THp> 

IF(Xji7ER70T) ~ ~ 

1CALL SWALL(RtZ(I.J) tXW(I) .VW(I) ,FX*FZ) 

TF ( X jT . E 0 . 1. ) 

lCALL S^ALLl (YW(I) *R*Z(I» J) *FX ifZ) 

IF(XJ EO.O.) GO TO 200 
TMW(I)«atAN(YW(I)/XW(I) ) 

GO To 201 

200 THW ( I V»YW { I ) 

20 1 CONTINUE 

vw ( I ) bUW ( I ) *FX*WW ( I ) *FZ 

if(XjT*eo.i« >vw(n*vw<i>*z(i.ji 

THWG*THW(I ) *XJ 

UT«Uw (T) # C0S (TwWG)*VW ( I ) «SIN (TMWG) 

VT«VW ( I ) *C0S (THWG) -UW ( I ) *SIN (TwwG) 

OCT* J) *S 0 RT <UT*UT*WW ( I ) *ww ( I ) ) 

PHE ( I , JTeATAN ( ww (I ) /UT ) 

SI ( I # j) bATAN ( VT/0 ( I » J) ) 

IF(H(i*J) .LT.lOOOO.JTEMPsl, 

IF (H ( i • J~) 7LT.10000 • ) TTEMPbH ( I * J) 

T ( I * J) ®FT ( P ( I * J ) *PHI (I# J) *M(T* j) ) 

IF(TEMP.EQ*1.) H( I* J)*T(I* J) 

If (Temp, EO • 1 . ) T ( I * J ) sTTEMP 

temp«o • 

TTEMP B 0, 

RH0ll7g)sRREQTH(ItJ) iPUf J) *PHT (I. J>7 
GAM (I, J)bFGAM(t (I* J) *P(I*J),PHT(I tJ>> 

A ( I * J) ® SORT ( GAM (I*J)*P(I*J) /RHn ( I » J ) ) 

CALL xUAM (Q (I * J) » A ( I * J ) « PHE { I ♦ . I ) * XPL Am ( I f J ) , XMLAM ( I , J ) ) 

7 CONTINUE 
TH(J) b Thw(1> 
return 




212 TFfR.fiT. (RCOWL-l.E-05) ) ISIMsIftMeX 
READTf » 100')' JI NT • KOUMTC 
READ(s*9) XMASf»XENT»FSX,FSZ 

9 FORMAT UE13. 5) 

PEA0(cV?] 6) ZLf FT’» XTHR t YMOM» 7 ShTFT » XSwlFT 
DO 213 JeltJw 

IF(IsiM # eO*1.0P.J.NE.JW) GO TO 300 
READ (5*100) IMAX ( J) 

GO To 301 

300 continue 

READ(5*216) TH(J) 

301 CONTINUE 

IF(R.rT.rCOWL) IMAX ( J) slMAx ( J) *1 

IMAX JbImaX < J) '' ' ' ' “ " r 

DO 2l A IslflMAXJ 

TF(I3tM.eQ.1>0P.J.NE .JW) GO TO 303 _ ' 

PEAD (St 302) UW(I) «ww(T)"*Vw(I) »THW(I) 

302 FORMAT (6E11.3) 

303 COMTinUe 

RE AD (5*21 5T Z1 1 • J ) * PTI * J ) * Q ( I • J) * PHE ( I * J ) * S | ( I * J ) * H ( I * J ) * 
lRHI ( I * J) » RHO (I* J) 

631 CONTINUE 

ta»J) ®FT (PTI * j )TPHH I»J> »h (i » j) ) " r 

r,AM(I,J)sFGAM(T(IiJ) *P ( I « J) *PHT ( I * J) ) 1 

A ( I * J) “SORT (GAM ( I • J) »P ( I 9 J) /RHo ( I • J) ) 

CAP. xUMTQTtTj) • A ( I • J ) *PHE ( I * 1 ) *XPlAM <1 * Jl* XMLAM ( I * J) ) 

215 FORMAT (5Ell.3*llX,Ell.3/2E11.3’i 
21 A CONTINUE 

TF (R.i T.RCOWL) GO TO 213 
tmaX ( j)*iMAX (J}-1 
PEADf5t216) (AlP (M,J),m«1«7) 

READ (5*216) (ALPHA (M * J)»M“1 ♦?) • 

READ (5*216) (BETA (M*J)*M“1*7> 

READ ( 5 * 21 T) (Is (M,J),m«1*T) 

I FTI S ( 3) • NE • 0 • A NO • 1ST M , EO • 0 ) RFAD(5*2l6) ZLTFTC* XTHRC » YMOMc 
IF(IS(1) #NE.0, ANn.ISIM.EQ.O) Rfa0(5»2i6> ZLtFTS*XTHRS, YMOMS 

21 3 CONTINUE 

tF (R. lT.rcowl) return 
icowlt*i 

TNTb? 

KC1 “3 ~ " ~ I 

IF ( I WrAP .EQ.l) RETURN 

PEAD(F*2l7) IDllMMy 

READ (5*216) (ZnUM'MY (I ) *I : “1 *NUMpxP) 

216 FORMAf(TEll.3) 

21 7 FO RMAT (715 ) 

RETURN 

FND 


l 



SUBROUTINE TBL (ZX»PX»SlX*Hx,pHTX»OX*PwEX*RHoX*GAMX,THx»L» I MAX* I) 
C’O WM'OkTV XTT HTI o TTR *Z (40,10) * P { 4 0 » 1 0 ) *PHp (40*10) * 

1 0(4o, 10) *SI (40*10) *H (40*10) *PwI (40*1 0 ) *RHO/40*l0 ) *SAm ( 40*10) 
COMMON /D/ UW { 40 ) * VW (40)*WW (40) • X w (40), YW (40 )*TH w (40) 
OOMMOm /DER/ Js 
COMMON /H/ lSlM 

COMMON /R/ J*XCN*XC*XXI* JW, InT, ICOWL*oCOWL 

common 7TB7”IMAXJ ns 1*1 SZ * I SlT, I SL 2 ' 

THL*0. 

TF (L . ME , • OR . T S I M . EO .1) Thl*Tm(L) 

DO If) J7s 1 * I MAX 
J5 bJ7 

TP (ZxTZTj5TL)1^8T971 0 

8 J6bJ5-1 

7 IF ( I .EO.l) J6 b J5* 1 

T2 continue “ " 

RAT«(7X-7(J6*K) )/(Z(J5*L)-Z(J6.K) ) 

P X B p ( J6*K ) ♦ (P <J5»L)-P Ci4*K))*RAT 

H X«H ( J 6VK ) ♦ ( H (J5*L) -H ( ,J6*K) ) *PAT 

0 Xbq <J6*K)*(Q (J5*L)-Q (J6*K))*PAT 

SI XocI ( J 6»K ) ♦ ( SI (J5*L)-SI (j6*K))»P AT 

PHTXepHI ( J6,K) ♦ (PHI ( J5*L) -PHI (Jft*K) > *PAT 
PHEXbpHE { J6.K) ♦ (PHE ( J5*L)-PHF ( )f»*K) )*PAT 
RHOXbpHO(J6,K) * (RhO<J 5*L)-RHO(.|A*K> ) »PAT 
0AMX* e AMTJ6TK ) ♦ (QAM'{ J5*L ) -GAM (. (A*K ) ) *RAT 
IF (K.mE.JW.OR ,ISIM,EQ,1) 

ITHXbJh (K >*RAT*(THL-TH(K )) 

IF (K.nE. JW.0R.ISIM,EQ,1) go to n 
THX*THW( J6) ♦RAT*(THW( J5)«THW( J<.) ) 

GO To 11 

9 TF(TcoWL.EQ.l) J5«! 

P Xbp ( j5*L) 

u X bm (J5*t) 

0 XbQ (J5,L) 

SI XesI ( J5«L) 

PHlXapHl ( J5*L) 

PftE X B pHE (J5,L> 

RHOXbrHO ( J5»L) 

GAMXb(?AM( J5,L) 

thxsthL ' ■ ' ~ 

IF(L.nE.JW.OR.tSIm.EQ.I) go to n 

THX*thW<j5) 

GO To 1 1 ' 

10 CONTINUE 

11 return 

FND 


r 

L 


SUBROUTINE WRAP ( M ) 

COMM ON~ 7 A“/ ~~Q T7T H MAX V T H( lo), R f Z'( 40 # 1 0 ) VP ( 4 0 * 1 0 ) * PHp ( 4 0 ♦ 1 0 > * 

1 Q(40,l0) » Si (4f>* 10) »H (40*10) »Pwf (40*1 0) »RHOf40»l0) »GAm( 40,10) 
COMMON) /C/ IMA; (10) t JMAX, ISTaRt.KOUNTf*KOUNtP 
COMMON/M/ IS (7* 10) 

COMMON) /S/ RI tKOUNTfKOUNTS* IcOwLT 

COMMON! /W/ ISlMEX*IDUMMY*JINTt7OUMMY(40) »THWW(2> ♦ JD1*JD2 
COMMON! /IQ/ NUmEXP* ZSAV 

COMMON) /WRTOMO/ X0(3) *xi (3) ,P1W(20) »OlW(20) ,H1W(20) *SiiW(20) * 
lPHI lw (20) *PHElW(20) *RHOlw (20) 
iP(M.pQ.O) 60 TO 321 
WRITP (6,1201) 

1201 FORMAT (1H1 »30X**EXTERNAL WRAP AROUND REGION*) 

321 CONTINUE 
J2«JtniT 
j3sj?*l 

PI2b?./ 3,14159?6 
Pll*3. 1415926/18. 

IMAXPsImaX ( J 2 ) 
lMAXT B lMA)r(^31 
TSS*IS(1 t J2) 
f SSl«f S ( 1 t J3) 

TCbIS ( 37J21 
IC]*IS <3* J3) 

X0(l)rZ(IC*‘J2)-ZSAV 

vl ( 1 ) a <7 ( ICl * J3)-X0 < 1 ) ) *PI2 

X0(2)bZ(ISS»J2)-7(IC*J2) 

xl (2) ■ (Z (ISS1 v)3)-Z ( ICl * j3)-X0(2) )*PI? 

vO ('3 ) B Z ( IMA x2 » j2 ) -Z ( I SS , j2 ) 

XI (3)b(Z(IMAX1,J3)-Z(ISSi»J3)-vo( 3) )*Pl2 
T1 bI0uMmy+1 

~lF7W.EQ.oy IMA x2eTC*»1 
DO 100 I*I1»IMaX2 
TF(I.oT.IC) GO TO 1 
ZL*ZsaV 
XNO=XO(1) 

X N 1 « X 1 (1 ) 

OIbO” — ' " 

c*(Zri»jg)-ZL)/XNo 

D B C*X 1 (1) *G1 

T1bX0(1)*C ~ 

T?bX i ( 1 ) *c 

(50 TO 2 

1 TF(I.OT.ISS) GO TO 3 
ZL®Z ( fC* J2> 

XNQsXq ( 2) 

xNlaXl (2) 

GIbXi fl) 

C«(Z(I*J2)-ZL) /XNO 
D«C*xT(2)*Gl 
T1«X0(1)*X0(2)*C 
t2bX 1 V 1 ) ♦Xl (2) *C 
<50 To 2 
3 ZL*Z ( lSS« J2) 

XNObXo (3) 

XNlsXTO) 



GleX] (luxi (2) 

C* (7 < T“f J? > -ZL )'/X~MO 
D=C*X 1 ( 3) *61 

T 1 tsxn j 1 )_♦ xO (2) *X0 (3) *C 

T2bX] ( D ♦X1T2 ) *X1(3)*C 
2 COKIT TwUfv 
P3eTi + T2/PI2 

p ?¥T y — 

D2eD*D 

0UMbr?*$0RT(R2*R?*D2) 

STb.5/D*(R3*SQpT(R3*R3*02)-OhM\ 

CALL TBL (R3»PS«SlS*HS*PHiS.QS»OHES»RH0S»6AMS»THX.J3*lMAX ( J 3 ) ♦! * 2 ) 


p 

SefP 

S-P 

(I. J2M/ST 

“0“ 

S S (Q 

~~s-q~ 

ri*J2 ) )/ST 

H 

Sb ( H 

S-H 

(I.J2) ) /ST 


SI Sb ( S I S-SI (I *J2) ) /ST 
PHISsTPHIS^PHI t I « J2> ) /ST 
PHESr fPHES-PHE (I*J2) ) /ST 
RHOSb(RmoS"PHO(I*j2) )/ST 

GAM SbTG A M S-GAM (T7J 2 )T7S T 

TF(I.gE.IC.OR.m.ME.O) 60 TO 32? 

t2bI«p|DUMMY*1 



‘ p l w y i 2 ) sP ~ 
o 1W(I2) S Q 

w 1 W ( I 2 ) ®H 

S 

S 

s 



SI ""1 w ( 12) bSI 

s 



pHHw(I?)bPHIS 



PHElW f 12 ) bPHES 



RHOlW f I2) =R'H0S 
322 IF(M.fQ.o) GO TO 100 
WRITf'(6, 1200) I 

12C0 FORMA T(// 10 X**J B ** I2/6x»*R*tPXt*TH* f 10X**P** 10xr*O**8X» *PHE«»9 x 
l*SI*»9Xt*H**9X,*PHl*»aX* 

1 *RHO* # ®X • 

DO 101 Ksl * 1 0 
THTsPf l«FLOAT (K-l ) 
d3bT 1 *T2*THT 

S«.5/o* (R3 *SQRt ( R3*R3*D2 ) •DUM) 

P Pep (I*J2)*P S«S 
D Bbo ( I » J2 ) *0 S*S 
H ~Bbh (I*J2)*H S*S 
SI BbsI (I#J2)*ST S*S 
PHIBepHi (I. J2) ♦PHIS*S 
PHEBspHE ( 1 • J2) *PHES*S 
RHOBbpHO ( I » J2) ♦RHOS*S 
GAMBbGAM(I»J2)*GAMS*S 

wPITFT6tl202) P3*THTTPB*QBtPHEP»SlB*HRtPHlBVRH0B»6AMB 
1202 FORMAT ( 10E11.3S 
101 CONTimUe 
100 rOMTfNUE 
RETURN 
FNO 



SUBROUTINE INDaT? (MM tIFStBM) 

COMMonT^TE M/tTAoTIO) 

COMMON /JF/ JFfNAL 

_ COMMON /A/ XltTHMAXtTH(lp) tR_ * Z (40 f 1 0 ) * P f 40 * 1 0 ) t PHf (40 1 1 0 ) t 

1 OT40.10) *SI (40*10) *H(40tl0> fPwi (40tlO) tRHO(4O*l0 ) *GAm(40*10) 
common /C/ ima; ( 10) * JMAX, ISTARf«KOUNTF*KOUNTP 
COMMON /D/ UW (40) » V W (4Q>«WW (A0)#XW (40)*VW (40)tTHw (40) 

COMMON /G/ A'l (3#9) *A2(3*9) *A3(G»9) *RRl (3) »Ro2(3) «Rb 3(3) 
l , nijml w s ♦ numuws ; NUMS WS 

CO M Mqm / h/ ISIm 

COMMON / 1 / X J 

COMMON /j/ QN(40*10) fPHEN(40*lr») *SINN(40*10) *XPLAM(40,10) t 
1 vMLAm ( 4o,10) ,FP(40) «FM(40) »A(4o«10) 

COMMON /R/ J*X C N f XC*XXI*jW,lNTVlCOWL*RCOWL 
COMMON /V/ XJ1 

COMMON /W/ ISIMEX.IDUMMY, JINT»70UMMY(40) »THwW( 2) ♦ JDl* J02 

COMMON /sa7 XJTS 

common /IQ/ NUmEXP*ZSaV 

COMMON /WR/ IWpAP 

01 MENS I ON BMTlO) 

102 FOPMAt(BF10.3) 

PEWlNO 55 
00 5333 J=1 »JW 
TMAXjelMAX ( J) 

00 B333 IbIiIMaXj 

READ ( p 5 ) Z (I» J) »P(I*J) *Q(I,J\ * H ( I * j ) * SI (T.J) *RHO(iVj> ,PHI (I.J) . 

1HE ( I * j) * TH ( J ) 

_ _ T ( I » J ) PFT ( P i I_* J) » H ( I * J ) ) 

GAM ( I , J) sFGAM (T ( I # J) » P ( I *J )t PH T ( I ♦ J) ) 

A (It J) "SORT (GAM(I # J)4P(I* J)/RHo(I»J) ) 

CALL /L am (Q ( I » j) » a ( I * J ) ipHE(y tj) tX PLAM (I»J) , XMLAM ( I , J) ) 

5333 CONTINUE 

CALL MOTHER 
READ ( p 1 1 04 ) IFSS»MM 
104 PORMf.x (BI5) 

IFSslFSS-1 

TF(IWrAP .EQ.l) GO TO 2 


l.»JF InAL 
00 1 600 1*1*2 
T ( I * J'.i) «T ( I » L ) 

7 

(I*JW)*Z 

( I *L ) 


D 

(I * JW) eP 

( I »L) 


H 

(I, JW)sH 

( I * L) 


0 

( I t jW) *Q 

( I *L ) 


A 

( I f JW) bA 

( I *L) 


SI 

irlt jw)bsi 

( I*L) 


PHI 

(I ♦ jW) bPHT 

( I »L ) 


PHE 

( It JW) bPHF 

( I *L) 


PWO 

( I t JW) =RHO 

( I » L ) 



GAM ( I « JST) *GAM ( I »L) 

XPLAm/I* JW)-«XPLAM(I*L) 

1600 xmlAm ( I f jW) sXMLAM ( I * L) 

IMAX(jW) elMAX (L ) 

TH(JW')STH(L ) 

THW ( ] ) aTHWW { 1 ) 
THW(?)*THWW(2") 



JWeJuuNilMEXP-1 
2 CONTtmOE 
TSIM*fSlMEX 
JMAXrjW 

fFdST M *EQ»0) JMAXsJW- 1 
00 5nn Ja 1 t JMA y 
T MMMsTMaX ( J) *MM 
IMM M M a’l MMMd'F'SS* 1 

REftD(5»103) (Z ( I* J) * IsiMMM, IMMMM) 

READ (Rf lo3> <P ( I * J) ♦ IssjMMM, ImMMM) 
p EflOfP*r03") ( PwE ( I f J r* I® I MMM * IMMMM ) 

READ (5*1 03 ) (Q (I*J) , IsiMMM, I mMMM) 

PEAO(c;*103) (ST ( I # J) ♦ I*IMMM* ImMMM) 

READ (5» 103) (H ( 1 1 J ) * I * j MMM * I MMMM ) 

READ <t;t 103) (PHI (I, J) * IalHHM, ImMMM) 

103 FORMa j (7E10#3) 

no 1 r*TMMM»IMMMM 

IF< J.fiT. JlNT.AND.I.LT.IMMMM-i ) 7 ( I ♦ J) aZ (2. J) 

R HO(I,J)«RHE Q ( M(T»J) »P(IiJ) tPHT (I*J )J 

°HF ( T * J) aPH£ ( I * J) /57# 3 
SI ( I « j) bSI ( I * J) /57,3 

T ( 1 1 J) «ET ( P ( I f J) » PHI (If J) » H ( I » J ) ) 

OAM<i, J)bFGAM(T(I, J) «P(I t J) «PH t (I«J) ) 

A (I» j')*S0RT(6AM(I.J)*P(I, J)/RHrt(I, J) ) 

CALL xLaM(Q(I,.j) ,a(I» j) fPHEdf I) tXPLAM(ItJ) • XMLAM ( I • J) ) 

1 comTtnOe 

500 CONTimUE 

TF(ISrMEX.EQ.l') GO TO 600 

.l*JW ’ " ’ 

TMMMb^MaX ( J) *MM 

IMMMMbIHMM*1,FSS-1 

READ (5> io 3) (Z (I*J) flalMMM, I mMMM) 

°EAD(e;*lo3> (P ( I * J> f I»lMMMf IMMMM) 

READ (5* 103) (H (If J) t IaTMMMf I mMMM) 

READ 103) (PHI (If J) , I bIMMM, ImMMM) 

READ(cifio3> (UW(I) f IalMMM* IMMMm) 

READ ( 5 1 1 03 ) (WW(I) fI = IMMMf IMMM m) 

600 CONTtmOE 

READ (e 1 1 q 3) (BM ( Ji 0 ) • J1 0b 1 , jw ) 

DO 7639 Jll«l»jW 

7639 PM(J) j)*RM(Jll)/57f3 
READ (a f 1 OA) NUmUWS 
DO 251 IbI t NUMljWS 

251 READ(r,io 2) RR? (I) f (A2 (I,J) , JbT,9) 

IF(ISTMEX.EQ.I) SO TO 3 
READ ( 5* 1 0 A) NUMSWS 
DO 25? iBlfNUMSWS 

252 READ(Sfio2) RR3 ( I ) f ( A3 { I , J) , JbT , 9) 

jaJW 

XJ1*0, 

DO 7 IbIMMM,IMMMM 

IP ( I ,L'Tf IMMMM-T) 1 ( I * J) =Z ( 2fjJ) 

PHO(l,J)sRHEQ(H(If J) f P ( I f J) fPHT (If J) ) 

TMS=TH( JMAX)*XJ 

XW(I) g R»cOS(THft) 

IE (X Jl fEO.0* ) 



1CALL S wa L.L (R»Z ( I ♦ J) tXW(I) tYWfl) * F X t F Z ) 

TF (XJ1.GT.0. ) 

1C ALL 5WALL1 (YWf I) ,R.Z(I. J) ,Fx.r 7 ) 

TF(Xj,EQ.O.) GO TO 200 
THW ( I > = AT AN { YW < I ) /XW ( I ) ) 

GO Tn 201 

20 0 THW ( T ) *YW ( I ) 

201 CONTINUE 

VW ( I ) «UW ( I ) *FX*WW ( I ) *FZ 

TF(XJ 1 .FQ.l.) VW(n=VW(I)*Z(I, J) 

THWGatHW ( I ) *X J 

UTsUW(I) *COS (THWG) ♦VW(I)#SIN(THWG) 

VTsVW ( I) #COS (THWG) -UW ( I ) *SlN<TwWG> 

^n*j)«so»nuT*0T*wi*'rir*w8ci)) 

PHE(T,J)*ATAN(wW(I)/UT) 

51 (It j)«ATAN(Vt/0(I* J) ) 

T ( 1 1 J > =F T ( P ( I t J > , PH l t I . J > t H ( I . . I > > 

GAM(i # J)sFGAM(T(I.J) *P(X*J) .PHT <ItJ> ) 

A (If J) « SORT ( GAM IJ * J > *P Ot J)/PHa (It J) ) 

CALL XL AM (Q ( 1 1 j ) t a (I t J ) t PHE < I * J ) f XPL Am ( j’t jVVXML AM ( I # j ) ) 
7 continue 

XJlmXjlS 
3 CONTINUE 
RETURN 
FNO 



FUNCTION FH(Pl.FtTl) 

C 0 « M 0 ATV THE/ “a" 17 A ‘27*37 A 4. A 5.A 6 X MM 1 
PsPl«M .01 325E5/21 16, 

T*T1 #G • /9 * 

F2«F*'F 

T E ( E . l T • 0 , ) 60 TO 400 
TE (T,pT.2000. ) GO TO 190 
IETFTpT 7T7) ~ G 0~T 0 191 " 

120 a«1»E-07# (-. 1042»f2 ♦ . 8242*F* . 987) 

Ps.OoT* ( ,01 1674F2 ♦, 1503*E. # 93 aj 
C=- . n ? 8 4 ¥F 2' ♦77>73l'»E4742 93 
GO To 2g0 

191 Aal.E-07*(1.787*E2 -5 , 48*E«. 5 . 4i 
R = .00T*(^VI8 67 *F 2*1.11*F *.1 7 6 V 
C»-.0 o33*F2 ♦3.975*E-2.808 

GO TO 290 

T90“i F7 FTgTTTT) G~0~ TO~T92 ~~ 

A«.00o001*(1,7q2*f2 ♦ . 3983*E + . *>1 ) 

Pe.Oni * (.9,05*F2 -,07917#E 4 >i 24c) 

C*1 0 ,r6#F2 -.1] R3#E* .97 
GO TO 2 90 

192 Ab.OOoOOI (4.81 *E2 -13,9*F*li .*9) 

P«. 001 *<-23.08*72 ♦66T82#E-52.gi ) 

C e 2T , o5*F2 -73.73*F+58.39 

290 H1bA*T*T + B*T>C 

TETr.CE. 2000 . ) GO TD 370 
A10«*AlOG(P)/2.?-5. 

?9b . 1 25*A10 »A1q -.278* A 10 

Hl«H)£(] a *(l«*r)» (T/2000.-1. )*79) 

370 w1bHI*1.f*06 
r.O TO 340 
400 T2rT*T 
T3*T2*T 
t4bT3#T 
T5^TaTT 

Hl«Aj *T*a2*T2/?.4.a3*T3/3.*A4*T4/4,*A5*T5*A6 
w1«H1*8314./XMm1 
340 CONTImOE 

FHbHi #1 0,7639 

RETURN 

FND 



SUBROUTINE solve (AlltAl2«A13*A?l«A22tA23»A3'[tA32tA33»pET) 

( *22*AT33^A32*A23 j -Al2*7A2l*A33-A3l#A23) ♦Al3* ( A21*A32-A22*A 

131) 

return 

END 



PETURm 

END 



SUBROUT tnE SWAI L (R1*Z1*X1*Y1,Fv,FZ) 

COMMOKi / G7 __ Ay ( 3TPT V A 2 ( 379 T, A3Tg ,9 ) , RR] < 3 T, Rq2 < 3 > . RR3< 3 ) 

1 ♦NUM| wS,NUMUWS,NUmS w S 
rOMMOM /U xj 

PTT*1 # E*06 

TF (L.lT.NUMSWS) PTT=RR3(LM> 

TF(R1VGFTR T T) j_BL*l 
TFfL.I T.NUMSWS) RTj=RR3(L*l) 

TF (R] # Ge.RTT.AMO.L»LT.NUmSWS) i sL*1 

X«=X1 ' - - ' 

7*71 

7Z=Z*7 

tTsl 

21 xX*X*x 

Y*A3(j7l)*XX*Z7*A3<L#2)*xX*Z*A3(Lt3)*y*ZZ*A3(L*A)-*XX*A3<L*5)*ZZ* 

1 A 3 (rr*D *X*Z*~A 3 ( L . 7 > »X*A3 ( L . 8 ) *7+ A 3 ( L . R ) 
fF(Xj.EO,0.) GO TO 20 
PTsSOrT (X**2*Y*<>?) 

F RR*TrT - RITTR 1 

IF(ABS<EPR) •LT.l.F-lO) GO TO 2 n 
TT*lT 4 l 

TF(It.GT.2) GO TO 22 

pRlcppR 

X 1 1 asX 

XaJ ,01*X*1 .E-5 
GO TO 21 

22 OUMcxi 1-ER1 *(X-Xh)/(ERR-ER1) 

FRlafpR 
X 1 1 *X 
yaPljM 

if(It.gt.io) call error ( 22 ) 

GO To 2i 

20 continue 

X1*X 

YlaY 

F X82. 4A3 (L 1 1 ) »v»ZZ*2.»A3 (L,2) »y»Z* A 3 (1 *3) »Z?»2.»A3 (L tA) *X + A3 (L#6) 

l*ZtA3(Lf7) 

FZb2,*A3(L*1)*xX*Z*A3(L*2>*XX*?,*a3(l«3)*X»7*2«*a3(u*3)*Z 

1+A3 <L* 6 > #X*A3 (1,0) 

RETURm 

END 



SUBROUTINE TWALL (Rl*THl »Z»FRl»rTl ) 

COMMON /G/ A 1 (0,B) • A2 < 3 , 9) , A3 ( s 1 9) * RRi (3) *RP2(3) »RR3(3> 

1 ♦NUMlwS,NUMUWS«NUMSWS 
COMMON! /I/ XJ 

COMMON! 7RV j * XCN , xc » x X I . JW. InT, ICOWL. RCOWL 
COMMON! /V/ XJ1 

COMMON /IS W/ JcALC*lSwEEPfXlNSe (10) »X? 

L ■ 1 ’ ' ~ ~ 

RTT® J. ,E*06 

T Hx»tH1»xJ __ 

PsR] *cOS ( THX ) 

ObR-x t NSP ( J) 

IF(Xj.EO.O.) TeTHl 

IF (X J Eo v 1 • ) TsRl#SlN(THl) 

IF (L.lT.NUMUWS) RTT=RR2<L*1) 

T F(R. eE.RT T ) L«L»1 

TF(L,| T.NtJMUwS) RTT*RR2(L*1) 

IF (R .Ge.RTT.AMD.L .LT.NUmUWS) j bLM 

PR*R»P 

tT«t*t . ' 

7bA2( L M)*RR*TT+a2(L*2)*RR*T4AP(L»3)*R*TT*a?(l.4)*RR»a?(l»5)*TT* 

1 A 2<L,<S)*R*T + A2j L,7) * R ♦ A 2 ( j. «8)» T + A2(L»9) _ 

FR b 2 * # A2 (L * 1 ) *R*TT*2.*A2 <l»2)*R # T*A2 (L*3)*TT42.*A2 (L*4> *R4A2 <L*6> 

1*T*A?(L»7) 

FT «2 # *A2 (L» 1 ) *RR#T*A2(L»2)«RR*2,*A2(L*3)*R*T*2.*A2 (L.5) *T*A2 (L.6) 

T»P*A?a.*B) ’ ~ 

fR1"FR*COS (THX) ♦FT*SIN(ThX) 

FT1b.fR*SIN(THx)*FT*COS(THX) 

IF(XJ.E0.1.TFT1*FT1/Ri 
IF(Xji ,E0 # 1,)Ft1*FT1/Z 
return 

FWD 


SUBROUTINE SW£rPT(II35> 

COMMON /TEM/ T>40*T0) 

COMMON /J/ QN(40»10> *PHEN<40*ln) *SINN(4o*lQ) *XPL aM(40,10) * 

1 XML AM ( 4q , 1 0 ) »FP(40) *FM(40) ,A(4o,10> 

COMMON /~A /Xl,T H M A” XV TH~( l o ) ,R , Z ( *0 , 1 0 ) * P < 40 » 1 0 ) » PHp ( 40 * 1 0 ) * 

1 Q <40 « 1 0 ) »SI (40*1 0) *H (40*10) *PwI (40*ln) * PHO (40 • 1 0 ) »GAM(40*10> 
COMMON /C/ IMAX ( 10 ) » JMAX, ISTARt,KOUNTf»KOUNTP 

'C'OWM0R — 7H7 rSl’M 

COMMON/N/ Sl0(40*10) »PQ (40*10) ,PHEQ<4p*10) * uQ ( 40 » 1 0 ) *PH I Q ( 40 * 1 0 ) * 
10 0(40 ,_l0 ) » PHOQ ( 40,10) ,GAMQ(4P, To ) 

COMMON /R/ J,XCN,xC*XXlt JW, INT, TCOWL, pCOWL 

COMMON /S/ RI ,kOUNT»KOUNTS, IcOwlT 
common /T$w/ JCALC*ISWEEP*XIN$d(10) *x? 

COMMON / I SWT/ fFR 

COMMnw/PS/ZR (40*2) *PR (40*2) *OR (40*2 ) *wR (40* P) « sir ( 40»?) *RHOR(40*2) 
l*PMlp'(4o,2) »PHcR(40*2) *ThR<2) ,thWR(40) 

COMMON /TSE/ KoUnsP 
IF ( I l35*EO, 1 ) (50 TO l 
JKbJcaLC*2 

jcoTcaitcti — 

X6«X?_RT 

RAT*(X6-XINSP(JCALC) )/(XlNSP( Jc)-XINSp (JCALC) > 

T FTR * T • GTV1 . - 1 . E- 1 0 ) RAT* 17 * 

TH(JC)*THR(1 ) *RAT»(Th(JK)-tmR(1 )) 

TMbIm/jX (JCALC) 
n0~ 3 1*1, IM 

P (I,JC)*P R(Itl)*RAT*(P (X;jK)-P R ( I , 1 ) ) 

H (T,JC)«H R(I,D ♦RAT*(H (T.JK)-H R ( I , i ) ) 

O ( T ,7Jc) *Q R ( I * 1 ) ♦ R A T * ( Q (l7jK)-0 R < I * 1 > ) 

7 (I,JC)*Z R(I.l) ♦RAT*(Z (I,JK)-Z R(I.lV) 

SI (T,JC)*SI R ( I * 1 ) + RAT* (Si (I.JK)-SI R ( I * f) ) 

PHI < I , Jc ) * p HlR ( 1 * 1 ) ♦RaT* (Phi (I . JK) -PhtR~(I »lT) 

PHE ( I , JC ) *PHER (1,1) <*RAT* ( PHE ( I . JK ) -PHfR (1,1)) 

PHO ( I , JC ) b RHOR ( I * 1 ) ♦RAT*(RH0(I'. JK)-RHoR(I *1 ) ) 

L * JC 

T(I*L)*FT(P(I*L) *PHI (I*L) *H (I*! ) ) 

(5AM ( I ,L ) SFGAM (T ( I »L) *P(I,L) *PHf (I*L) ) 

A (I*L) B SQRT(GAM(T7Lr)*P<I*L)/RHo(I*L) ) 

CALL xLaM(Q(I,l) t A ( I • L ) * PHE < I * i ) *XPLAm(I*L) ,XMLAM(I,L) ) 

3 cONTtmUf 

IF (Rat.LT. 1 .-1 ,E-10) RETURN 
,ICALc*JCAUC*1 
I FR*) 

IF ( JCALC. LT . J W- 1 ) 60 TO i 
IFR*0 

JCALCbIQO 

JWaJw.l 
jMAXajW 

TF(ISTM.EQ*0) jMaX*JW-1 
kOuN?p*kount 
T$WEEP*0 
return 

1 IMXXjs7mXX (1 ) 

00 2 I*1,IMAXJ 

P 0(T* JCA LQsq, 

H 0 ( I * JCALC ) *0 » 



n Q ( f » JCALC ) gfi » 
Si Q(T»JCAlC>=0. 
PHTO < T * JCALC) 

PHEOj I » JCALC ) afl , 

RHOQ ( T ♦ JCALC ) art . 
GAMQ(t* JCALCJ sn. 

2 continue 

RETURm 

end 



FUNCTION FT(P1,F,H5) 

COM MON / C /~l MAX - (21 fTJ'M A X ,1 S TAR T . K 0 U N T F * KOUNTP 
COMMON /%/ RI,KOUNT»KOUNTS,ICOwLT 
COMMON /THE/ Al*A2,A3,A4,A5» A6.XMM1 
DATA 163/0/ 

P=P1*] . 01325E5/2116. 

H*H5/lO. 7639/1. E<>06 
F2 =F#f 

A10»AlO6(P)/2.3-5, 

79c.1?5*a10*A10 - , 2t5*A 1 0 

TTtsl 

IF(I63»E0.1) GO TO 1000 

163 = 1 

T=l500 • 

T0=1500, 

I F (F.pE.O. ) GO TO 120 

Ts600. 

T0 = T 

1 000 IF(F.|.T.q,) GO TO 400 

GO TO 120 
50 F0«(H„Hl)/H 

IF_( AP S (Eq ) .LT.j. E - 0 4) J3 0 TO 34 h___ 

T =tO*l.l 
I To2 

IF(F. L T.o.) GO TO 400 
GO TO 120 
100 F1=(H.H1)/H 

IF(APc(El) .LT.l.E-04) GO TO 34^ 

I T e 1 T ♦ 1 

IF (IT.LT. 21) GO TO 10 
WRITE (6,11) 

11 FORMAT (* E*ROR IN TEMPERATURE tTERATIoN IN FT*) 
STOP 

10 T9*To«Eo*(T -To)/(El-EO> 

FOsEl 

to=t 

TsT9 

IF(F.lT.0.T GO To 400 
120 Aei.E«07*(-.l042*F2 ♦ .0242*F* . 907) 

Ps.OOl* ( ,01167*F2 ♦, 1503*F4,93ft ) 

Cs-,O?04«F2 ♦, 673 1*F*. 4293 
IF(F. L E.l.) GO TO 190 
A*1.E-07*(1.787*F2 -5.48*F+5.4) 

Bm, 001* (-* 1867*F2 ♦ 1 . 1 1*F* . 176', 

C«-.0933*F2 ♦3.975*F-2,8o8 
190 IF(T.lE.2000*) GO TO 290 

Ae,0Oo001*(1.792*F2 ♦ .3983*F* .31 ) 

B*.001* (-9.05*F2 -.07917*F+,24f) 

C*10.«6*f 2 •• 1 1 83*F* ,97 
lF(F7tE,l.) GO TO 290 
AS.OOOOOI* (4,8i*F2 -13.9*F*H ,s9) 
B=.001*(-23.08*F2 ♦66.82*F-52.f 1 ) 

C=27.ft5*F2 -73.73#F*58.39 
290 h1=A*t*T*B^T*C 

IF(T.lE,2000.) GO TO 370 
H 1 =H 1 *(1 . + ( 1 . +F f*T T/20 0 0 . - 1 . ) *79 ) 



370 CONTINUE 
00 TO 350 
400 T2*T*T 
T3 = T?*T 
T4bT3*T 
T5*T 4*T 

IF (F # |_T.-1.5) 00 TO 450 
XMM1*i6,043 
Al*4,?497678 
A2b-6.9126562e-03 
— A3=3.i602134E-05 

A4e-2,97l5432E-0a 
A5e9.5l03580E-l2 

A 6 a - 1 . 01866 3 2 E '♦04 “ ~ 

SO TO 4fco 
450 CONTINUE 

Alai. 12024-36 
A2el.39057l6E-02 
A3e2,6568374E-o6 
a4b-i . 1560272E-08 
A5s5.2386929E-i2 
A6o5.33?8896E*o3 
' X M Ml e ? 8 • 0 54 

460 HieAi*T*A2*T2/2»+A3*T3/3«+A4*T4/4,*A5*T5*A6 
H1 bH1*83!4./XMM1/i ,E*06 
350 IF (I T . EG , I) " GO TO 50 
GO TO 100 
340 T0*T 

FTb9.*T/5, 

return 

end 




SUBROUTINE STEP(TFS»MM» DflX»X2*kOUNT) 

COMMON ' /XF/ XF IN ■' 

COMMON /a/ XlfTHMAX«TH(l0) «R .. * Z (40 , 1 0 ) i P ( 4 0 » 1 0 ) * PHf (40 • 1 0 ) ♦ 

1 Q (4(5 « 1 0 ) * SI (4o»10) ♦ H (40 » 1 0 ) * Pu I (40 » 1 0 > »RHOf 40*10) *GAm( 40*10) 
COMMON /B/ PN(40*10> *PHlN(40#ln) #RHON(40*loV»HN(40*lO) *ZN(40»10 ) 
COMMON /C/ IMAX (10) »JMAX,ISTARt*KOUNTf»KOUNTP 
COMMON /n/ UW (40 ) * VW (40)«WW (40) • X W (40)*VW (40)*THw (40) 

Common /h/ isim 

COMMON /I/ XU 

COMMON / J / QN(40*10) fPH£N(40f lft) »SINN(40*10 ) »XPLaM(40,IO) ♦ 
1vMLAM(4o* 10~) f Fp ( 4 0 ) «FM ( 4 b j ♦ A ( 4 ft , 1 0 ) 

Common /k/ rn»dElr 

COMMON /L/ ALPhAN{ 7»10) tALPHA ( t,10) *BfTAN(7»10) »BETA (7*10) 
COMMon/M/ IS (7, 10) 

COMMON/P/ KCl*KC?»KSl,KS2 

common / Q/ XcnWL 

COMMON /R/ J»XCN*XC»XXff jWtiNT,icOWL*PCOWL 
COMMON /$/ RI*kO NT*KOUNTS» iCOwlT 
common /V/ Xjl 

COMMON /W/ ISTmExTIDUMMy, J lNT»70UMMy (4O) * TH W w(2 ) * JDl * JD2 
COMMON /SA/ XJ?S 
Common /7/ ISTOP 

COMMON /TB/ Imax j* IS 1 » IS2* ISLT « ISL2 
COMMON /fSw/ JCALC* ISwEEP»xlNSo f 10) #XP 
COMMON /SPE/ KoUNTC 
COMMON /ise/ KOUNSP 
Common /PL/ DE TW 
COMMOn/XSTP/XSTP 
OY*lon0. 

TOUTcl 
TFLAOsO 

_ r OELXb] *E*06 
DELRb) •E+06 
IF (IFlAG.EQ.I ) IOUT «0 
00 3 J«1 , JMAX 
TF(J.oT.JCALC) 00 TO 3 
TF (J.r,T. JINT) xJlsO. 

T MAX J si MAX (J) - - - - 

IF (IMAXJ.LT. 39) oo TO llll 
1112 TSTOPbI 
RETURN 

1111 CONTINUE 

JMbJ - ) 

IF (ISwEEP.EQ.I.AND. J.EQ. JCALC) JP* J* 2 

TF(J.FQ.I) JMajP _ __ 

’ T F ( I ? T M . E 0* V • AND. J»EQ* JMaX } jPejM 
IF ( Is ( 1 ♦ 1 ) »EQ. 0 ) GO TO 5777 
ISlelSOtJ) 
lS28lsrYTJT 
5777 cONTtmUe 

IITbImAx ( J)-IFS+1 
IITTbIIT-MM-1 ' 

00 4 j*?. IMAX J 

TF (ICQWLt E Q«l.AND.I,GT.IlTT.flNn. I.LE.l IT) GO TO 4 

00 5 Msl.7 



l) . EQ, o ) GO TO 5 

TTFSTelS'(MVU) - 

TF ( (m/2) *2.E(J.m) T TFSTs IS (M.J)-m 

TFf Ic ( M, J) ,LE,?.OR,IS(H,J) .GT. >IMAX(J)-1) ) GOTO 11}2 
tf{ i te ovit e s t roo 10 4 

5 conttmUe 

OZsZ ( T* Jl-Z (1-1* J) 

lFTII7j;T7jMATrDyi'sTHQP~)-TH( j) " 

TF (IST M .EO.O,AMD # J.EQ. JMAX) DYisTHW ( I ) -TH { JMAX) 
TFaSTM.EQ.l.AND.J.EQ.JMAX) r>Y?sTH < JMa X ) -TH ( JM ) 

TF‘fTJ7G'Tvr) DY2=TH ( J)^TH ( JM ”) ' 

TF(J.rQ.l) Dy2sTH(JP)-TH(1) 

TF(J.pO. JINT) DYIsDETH 
TFTJ7e:07^T n T 7A^D7I7GT71 DUMMY )“nYl"sDY2 
TF(J # fQ. JINT.AND.xJI.GT.O*) OYfsDYl«Z (I* J) 

I PUs I pUMMY ♦ 1 

T F777F Q77TN j^rr D Y 2 =D Y1 " - - - 

PYsOYl 

TF (Oy?.LT.DY 1 ) DYsOY2 

TFT77i;T7JMAx70R71SIM7E:07irG0“TO'6 ~ 

TF(IS(1*1) *EQ.O) GO TO 6 
TF(I,F Q »lSl.OR.I.pQ. (ISl-1 ) )gO TO 6 
TF ( I7FQ7TS270R7I7E Q7(IS 2«1) ) R(Tt 0 6 
TMAX JM= IMAX ( JM) 

TSL1stS(3»Jm) 

TS|T27tSTlT0M) 

TF(ICOWL.EQ.l) lSLl a O 

CALL TBL fZ (I* J) tPl .SH *H1 *PHir,Ol tPHE^PHOl ,GAM1 ,THY» jM» IM A X JM .1 

~T) ' 

IMAXJPsIMAX(JP) 

TSLlsfS (3» JP) 

FSL^sfsn i jp) 

IF(ICOWL.EQ.I) ISLIsO 

call tBL(Z(I*J) »P 2tSl2iH2»PHI2.Q2»PHE?*RH02 f GAM2.THX*jPf IM aX JP ,1 
1 ) 

D2sTHy-TH ( J) 

OlsTHf J ) -thy 
OlsARS (D1 > 

02oAfk(D2) 

TF (JP.EQ, JMAX*1 ) TH(JP)'»THX 

TFTD'2,LT , AB5 CTh ( JP)“-TH ( J) )-l,E-05) D2sD2/2. 

TF f 01 ,LT.A8S(TH< JM)-TH( J) l-l.E-05) 01 = Dl/2. 
nYsAMfNl (DY»Dl .02) 

DYsOy# • 75 

6 CONTINUE 

TFfXjiT.GT. 1..AM0.J.LT. JlNT)DY«nY*Z(I*jl 
tf fx"j •po.i. ) dy®dy*R 
T f <D7 # Gt.OY) O 7 SOY 

ORs (07 )/(XP|_AM(T-T«J)-XMLAM(I «J>> 

I FTP R ", L T", DE L R r~DEL P * 0 R 
* continue 

DXsDEL r 

TFTDir^irrTDELX') dfl x *dx 
3 CONTTNUE 
XJlBXjlS 
OELXsnELX«XSTP 



r>ELXs.9*pELX 

X^eXf+DEUX 

IE (X?.Gt # xFIN) DELXsXEIN-XI 
TF (X?,GT.XFIN) XpsXFlN 
TF(I>!t»EQ»2) Go TO 340 
TF f IS wEEP.EG.O) GO To 341 

TF (X ? .Lf.XINsP(JCALC*1 ) +RI-1 ,E-o5)GO TO 34Q 
X?>XImSP ( jCALC+1 ) +RI 
DELXcxINSP(JC4LC*1)-X1*RI 
GO To 340 
341 CONTTnOf 

TF(X?.LF. (RC0Wl.-l.E-05) ) GO TO 340 
X?*RCnW|_ 

DELX*pCOWL-X1 
340 gONTTmUE 
RNterX? 

“ RETURm — 

END 


SUBROUTINE C0RmER(IC,R1 »TH1 ,71', 

COWMOnT 7AV/ TAVT0AV - - 

COMMON /fiLLRl/ “M ( 40 » 1 0 ) »TN (40 « 1 0 ) *GAMN (40*10) » XPL AMN < 40 * 1 0 > * 

1 yML A MM (40*10) 

~~ C’O M M OKr/ J/ Q N(40~*T0) ♦ P H E N ( 4lf* I n ) ♦ s 1 N N ( 4 o * 1 0 ') * X P L A M ( 4 0 * 1 0 ) * 

1 XML Am <40, 10) *FP(40> *FM(4o) ,A( 4n,l0) 

COMMON /IVY/ IvY, KCORR, I aV 

COM M ON~7 A7“Xy, T Hma X 7TH < 1 pT* R * Z ( 40* 1 0 > * P ( 4 0 * 1 0 > • PHp (40*1 0 > * 

1 O(40,l0)»SI(40*10)*H(A0,l0> ,PuI (40* lo) *RHO<40*l0 ) ,<sAm( 40*10) 
COMMON /B/ PN (40*10)* PH lN(40*lr>) » RHON < 40 * l O') , HN (40 • 1 0 \ * *N ( 40 * 1 0 ) 
COMMON /c/ IMAX (lo) * JMAX,rSTART*KOUNTF*KOUNTP 
COMMON /^/ UW ( 40 ) ♦ VW (40)*WW <40)»XW (40)»YW (40)*THw (40) 
COMMON /E/ UWN (40 ) * VWN (40 ) ♦ WWN <40 ) * XWN (40 ) » YWN (40 ) *THWN (40 ) 
COMMON /!/ Xj 
common /k/ RN*nELR 

COMMOM/T/ PP ( 4p,g) *Z P (40,2) ,QP <40*2) *slP<40,2 > *PhEP(4o*2) • 

IMP (4-072) , RHOP (40,2) «PHIP(40,2) ,6AMP(4ft*2) *Ad<40*2) ,THp<40*2) * 

2IJP ( 4 o , 2 ) ♦ VP (40.2) *WP(40»2> 
common /[)/ ERZZZ 

COMMON/V/XJl 

DIMENSION YPLAm(2) *YMLAM{2) 

Klim 
A93sl. 

R93® 0 . 

IF (BAv.GT.O, ) A93rs,5 

IF (Bav«GT,0, ) r93c,5 ~ 

. JWs JMA X ♦ 1 
PTbPn < ic • JW) 

XPLRWxPlaMNTIc.JW) " 

Il=ir-1 

IF(IC.EO.I) 1 1 a I C* 1 
TF fXjj • E 0 • 071 
1 XWN ( iji ) bXWN (II) 

ITol 
THGbThI 
5 cOMTtnUe 
THGX*tH<5*X J 
XsPl* r OS (THGX) 

Y«R1*sIN(THGX) *THG* ( 1 ,»XJ) 

TF(Ic.EO*1) call RWALL(R1*THG*T1 *FR*FTH) 

TF1Tc7 n E 7l~) C AUTTWAU I7( RT*T HG*7 TTfR . FtH ) 

IF (Xjf.EO.O,) 

1C4LL sWaLL(R1*Z1.X*YT.FX*FZ) 

IFTXjTTgtTD . ) CALL SWALL1 (YT,R) ,Z1*FX,FZ) 

fRRcs < w»YT) /Rl J 

TF(ABs(ERR).LT.1.E-10) Go to In 
ITsITTI 

IF ( lT # GT,2) GO TO 20 
TH2 *ThG 

ER'PsERR ' 

THG« 1 . 0 1#THG* 1 ,E«4 
GO To 5 

20 nUM=TH2^ER^<THG-TH2)/(ERR-ER2) 

PR?be;pR 
THBbTmG 

THG*0llM 



TF (IT.GT.10) CALL ERRDR(20) 

(50 Tn 5 ~ 

10 CONTtmUE 
THGXbtHg#XJ 
THWM(tC)sTHG 
TF(XJl ,EO.O.) 
lVWAJ(lc)sX 
TF (Xjt .£0.0. ) 

1YWM( 1(0 aV 
7N(IC.JW)*Z1 
7DUMBJ • 

TF(Xj) .EG.l.)ZOUMsZl 

WOU=(fR<MCOS(THGX) *FX*SIN(THgX) )*FTH*7DUM* 

1 (FX*cOS(THGX)-SIN(THGX 

2) ) )/(} .-FZ* (FR#SIN(THGX) *FTH*Cn^(THGX) ) *ZDU m) 
VOUapX*WOU # FZ 
v0U«VnU*70UM 

C rOPNpp PRESSURE (7=C0NST) 

TMAXjsImoX ( JMax) 

T0*IMaXj*1 

*D«Zto( lc, Jw) 
no 3 jJsJ *2 

RAT* 8 ( 7D-ZP a I f j J ) ) / ( ZP ( I c * J J ) -7P ( I It Jj> ) ' 

HP (TO. Jj)aUP(lT» JJ) ♦RAT*(UP(IC. JJ)«UPf II* Jj) ) 

vp ( in. JJ)«vp(it* jj) ♦rat*(vp(tc‘. jJ)-vp ( ii » jjj ) 
wp (inrT3j)=wpiiT * jj) ♦Rat* (wp (tc. jj)-wp di * jj'O 
pp ( in. JJ) "PR ( it* jj) ♦rat*(PP(tc.jJ)-pp(Ii»jj) ) 

wP(In.Jj)8HP(IT*JJ) ♦RAT* (HP ( I C • J J ) "HP (II » J J ) ) 

RHOP ( ID . J J ) s:RHOP ( 1 1 * JJ) ♦RAT* (I RmoP ( I C * JJ ) -RHaP (II* JJ) ) 
PHTPf tD, JJ)«PHTP( II* JJ) ♦RAT*(P wjPfIC*jJ) -PM TP ( 1 1 . JJ) ) 
THP(In» JJ)=THP (II, JJ)*RAT* (THP(TC» JJ)-THP (I t, JJ) ) 

!T(TJ j 7EQ71)"THP(T DT3JT=THlJM A X) ~~ " 

7P(ID, JJ)b2D 
D1bZD-ZP(II*JJ) 


TF ( Jj.EO.2) nO tO 4 
nUiBniP(iD.jj).up(il,jj) )/di 
nVi a ( vP ( ID* JJ ) -VP ( 1 1 * JJ) )/oi 


nWiB( W P(TO*JJ)-WP(ll*jj) )/nl 
nPls (pP ( ID* JJ) -PP ( II * JJ) )/Dl 
GO To 3 


4 nU2B (U P(iD»JJ).UP(II*JJ ) )/01 
nV2» ( vP ( td* jj) -vp ( 1 1 * jj) )/nl 
nw?B ( wP ( ID * JJ ) «wp ( 1 1 , jj ) )/di 


nP?« ( pP(lD*JJ)-PP(II* JJ) )/oi 
3 cONTimUE: 

DATb.5 



I«ID 

TT«1 

THasTm(JMAX)*RaT*(THW(IC) -TH(.IMAX) ) 
2"51j Asy pTI 1 1 ) *RAT* (U P(I,2)-u P(I*f>) 

V AbV P(If 1) *RAT*(V P(I,2v-V P( I, in 

M Abh p( I»1UR AT» (H P ( I, 2)-M P ( I »l ) ) 

P Asp P(I,1 )*RaT*(P P(I,2)-P P ( I * l ) ) 

W Abw P(I, 1)*RAT*(W P(I,2)-w P ( I * i > ) 

PHOAbpHOP (1*1) *RAT* (RHOP ( I *2) -DROP ( I m ) ) 
THAXbtHA*XJ 



VAsR#eO$ (THAX) 

V AsR^Kfr Kl ( T H A XT ♦ T H A *“( l.-Xj ) 

PSVbPa 

PHIAaDHlP(I f l) ♦RAT*(PHIP(I»2)-PHIP(I*T) ) 
f AsFT (P a«PHIa*wA) 

GAMAsp-GAM (TA*PA*PHIA) 

AAsSORT(GAMA*PA/RHOA) 

TAUA e v A7DA 

UA2bUA*L»A 

AA?bAA*AA 

VA?sVA*VA ' 

PETA*sQPT( (UA 2 *VA2 )/<AA2 V-l.) 

ALAMs (U a*VA*AA? *BETA)/(UA2 .AA2 > 
DUMPeA93*ALA"M*B93*xPLN 
TF(XJ,EO.O.) GO TO 32 
THATbvWn ( IC) - (XWN( IC) -xa> *dump 
THaTcaSIN (THaT/R) 

GO To 33 

32 TF(XJ1 .EQ.O.) 

TTfl AT¥^V Wr?l - X at«w»^p " 

IF ( X jT»GT* 0 • ) fH AT®THWN ( IC ) "OU mP* (R1»r ) /ZN { tc * JW ) 

33 CONTINUE 

FPcsAR $ < 1 .-THAT/ Tha ) 

TF (EP.lt, I.E-Oa) go TO 3o 
THAbThAT 

RAT® ( THA'-THt JHa X ) ) / ( THP (1*2) -Th ( JMAX > ) ' 

TT»ml 

IP (lT.GT.l5)CAi,L ERROR (30 ) 

GO TO 25 

30 OUbDU1*RaT*(DU?-DU1) 

OVbOVI *RAT* (OV p-OVl ) 

DWbDwj ♦RAT*TW2-Dw1 ) 

0PbDPi*RAT*(DP2-0PI) 

t_F (B^«53.FO,0, ) bNbbETA 

A22s Ao3* ( RHOA* |i A 2 / BE TA ) ♦ B < ?3* (RwoN(TC t JW) *IJWM ( IC) «h»2/Bn) 
fpa=alAm*rhoa*wa*du-rhoa*wa*ov. 

1 ( A LAM.VA/UA)»(WA»nP»AA2 »RHQA»pW ) »U A/ ( A A2 ) 

FPAbFpA/RETA 

TAUCbvOU 

THWNXsTHWN ( IC) *X J 
THAXbtHA^XJ 

tsvIb (Voh-tan<thwnx > >/(i.+vou*tan<thwnx >) 

TSV2fi (VA/UA-TAm (THAX) ) / ( 1 , ♦ VA /i iA«*TAN ( tHAX ) ) 
DV0UbtSV1-TSV2 

IF ( X jf *EO» 0 • ) nRRRsXWN(IC)-XA 

IF (XJi,EQ,l , ) qRRRbRN-R 

PC1«Pa*FPA*DRRR-A?2* (TAUc-TAUA^ 

c corner pressure <theta s constant) 

THT=ThWN(IC) 

DTH=THT-TH(JMAX) 

DO Art iKsl »2 

TbIK 

TF(Ic.EO.I'MAXJ) IbIMAXJ-IK*i 
RAT»DTM/(THP(I, 2)-THP(Itl) ) 

WP (1,2 ) sH P ( I,1)*RAT«(H P(T,2)*H P(I,m 
PP (1,2 ) sp P(I,1)*RATP(P P(f*2)-p P(I*lV) 



PHOP ( t • 2 > *RHOP ( T * 1 > ♦RAT* ( RNOP > I » 2 ) -RhOP ( I » T ) ) 

7P U7?"T=ZP ( I * V ) *RAT* (ZP ( 1 , 2) -7P ( I .1 ) ) 

QP (J 2 )sQ P(I*1)*RAT#(Q R(t,2)-Q P(I*1)) 

SIP ( T • 2 )eSI P(ItD*RAT*(SI p ( t ♦?) -SI P(I*H) 

PHpP (1*2 ) ®PHEP ( I * 1 ) ♦ R AT * ( PHrP ( I » 2 ) *PhEP (I fl)) 
PHlP(T»2)aPHIP(I,l) ♦RAT*(P hip(t,2)-PHtP(I.1) ) 

,1=2 

T S FT ( PP ( I * J ) , PHIP ( I , J) t HP flij) ) 

r. AMP (T» J)sFGAM(T *PP { I « J) tPHlPdt J) ) 

a p «sort(gamp(i» J)*pp< r. J)/ dmop(I*j) ) 

CALL xOTmTQP<I # J) ,AP t PHEP ( t « J) * YPl Am ( I K ),YMLAM(Ik )> 

40 COMTtmUP 
THTbThT*xJ 

PHFMl =A~TaN ( W007 (COS (THT) ♦VOU*SIm (THT) ) ) 

T = IC 

7As,S* (ZP ( 1 1»2 ) ♦ ZP C I • 2 ) ) 

TTel 

50 RATAb(ZA-ZP(H'. 2) )/<ZPd*2)-ZP(II*2> ) 
jTslT*l 

AO"HbyPLAMT 2 ) *RATA« ( yPLAMfi - )-y"pLAM( 2 j) 

rLAMbvMlaM(2 ) ♦RATA* (YMLAM (? )-YmLAM(? )) 

CLaM«aLam*A934r 93*XPLAMN( ic# JW^ 
fF(IC.EO.l) C'LAMsBLAM*A93+B93*vMLAMN“{lC t Jw) 

7 A T « Z m ( I • JW) -CLAM*DELR 

FR=ABS< (ZAT-ZA)/(7P(I*2 )-ZP(It»2 >)) 

TF(FR.rT.ERzZZ) GOTO 55 
7A«Zat 

IF(IT.LT.IO) GO TO 50 
CALL F r ROR (50) 

55 paTZb(Za-Z(II»jMax) )/<Z(I* JMaX)-Z(II» JMaX) ) 

0 Asq P ( 1 1 *2 URATA*(Q P( T*9 )-Q p ( 1 1 * 2 )) 

P A^p P(H*2 )*RATA*(P P ( I * p ) -P P(II*2 V) 

OAMABoAMP(II f 2 ) ♦RATA*(GAMP(T*2 >-GAMp(IIf? )) 

SI AbsI P ( 1 1 * 2 ) +RATA* (Si P(If?) -SI P ( 1 1 * 2 )) 

PHFA s pHFP(TI f 2 ) *RATA# ( PHEP < I * ? ).PHEP(IIf? )) 

RHOA B pHOP(IIt2 )4RATA*(RHOP(T*9 )-RHOP(IIf? )) 

AAbSOrT (GAMA#PA/RHOA) 

P A laP fHTjMAX MRATZ* (P (f, JMAX)-P ( Jl»jMAX) ) 

SI AloSl (II* JmAx )*RATZ*(SI (T,JMAX)-SI dlfJMAx)) 

PHEAlaPH Fdlf JMAX )*R ATZ»(PH E ( T f JMAX ) -PHE (iff JMA X ) ) 

np B (P A-P a 1 ) /DTH 

DSI BfSl A-SI AD/OTH 

OPHFb (PHFA-PHEA1 ) /DTH 

CALL P (RHOAt QAfR»ZA*PHEAf ALAMfB'LAM»SlA*AAtDSl tDPfDPHEfFPC»FMC) 
RG2=QN!<IC* JW)*QN(IC* JW)*RHON (Ir f JW) 

QA?bQA»QA 

d=FPp/ (RHOA*Qa2) 

PlBFMf/ (RHOA*Q a2) 

A2bSQrT ( (QA/AA)»»2-l.)/(RH0A»OA 2) _ 

A2sA 2*A93 + S0RT ( (ONI (IC* JW) /AN (Ir t JW) ) **2-1 • )*B93/RQ2 
JF(IC.EQ.IMAXJ) Pc2 s Pa*(PHEA-PMpN 1 *Al*DELR)/A2 

tniC.EQjl) PC?bP A ♦ (P HENi .PHEA-Bi*DELR')/A2 

DWOUbtAN (PHENl ) -TAN(PHE’A) 

dvijsarS (ovou) 
nwu=ApS (nwou) 

p ANJGbdVU + DWU 



!F(DAmG.EQ*0.)GO to 60 
pATlenVU/DANG 
PAT2 bDWU/DANG 
GO TO 70 
6 0 PATlc.5 
BAT?e, 5 

70 PlsPSV*RATl*PA*RAT2 

OPT* (PCV-Pl ) /PI 

nPpe(pC2-Pl )/P 1 

OPC«RaT1*DP1+RaT 2*DP2 
PN(J, jW)sPl *(1.*DPC) 

RHON ( tC* JW> sRHO ( IC * JW ) * < PN { I c t JW ) /P ( If; » JW ) ) ** (1 ,/GAM ( TC* JW) ) 

VVSLs UW ( Ir) #*2*VW ( Ic) **?+ww ( IC) **2 

VVC ss VV S L ♦ 2 . *G AM ( I C f J W ) / ( G A M ( I C , J W) • 1 • ) * ( P ( I C # J W ) / RHO ( f C * J W ) • 
1PN(IC« JW)/RH0N(IC. JW) ) 

HWN ( I?) eSQRT (VVC / ( 1 . ♦VOU*VOU*WOU*wOU ) ) 

VWMf IC)=vO'U#UWN(IC) ' 

WWK](Ir)aWOU*UWM(TC) 

U N ( I f* » JW ) ( Ic * JW ) ♦ *5* ( WSL -VVC ) 

PTONTt CTjW") aPH T < I C * j w ) 

THWNXsTHWN < <1 C ) * X J 

PHEDf bWww ( I C ) / (UWkj ( IC ) *COS (THWNX ) *VWN ( I C ) *St N { THWNX ) ) 

PRFN7TC7JW )^'ATaN7pHEDE) ~ 

VOUMevWN (IC ) *CoS ( THWNX ) -UWN (TCI *SIN ( THWNX ) 

ON ( Ir , JW) tsSQRT ( VVC-VDUM**2 ) 

SINN ( fC7JV) = AT A N ( VOUM/QN ( IC* JW) ) 

TN(Ir f JW)-FT(PN(IC«JW) «PHlN(iC*jW) tHN(ZCtJW) ) 

SflMNdC, JW)*FGAM(TN(ICt JW) *PN ( TC* JW ) * PHI N ( I C * JW ) ) 

AN ( I CTJwTsSQRT ( G AMN < I C * JW ) *PN ( t C * JW ) /RHON C J~j» « J W ) ) 

CALL xLAM(QN(IC*JW) tANdetJW) * phEN(IC*JW) *XPLAMN ( IC* Jw) *XMlAMN(IC 
1 , JW) ) 

ETVA"B$( (PT-PN(TC.JW) )/P(lC, JW) ) ~~~~ 

tF(IVY.EQ.0.0R.ET.LT.i.E-04) Go To 2648 
KIL«KiL*l 

IE(*IL.Gt,5)G0 TO 2648 

AP^o.Ei 

B93c,S 

PTsPN flC.JW) 

UNA2buWn { IC) *UWN ( IC) 

VNA2svWN(IC)*VWN(lC) 

ANA?baN(IC* JW)*AN(IC» JW) 

RETTMsSORT ( (UNA2*VNA2) /ANA2-1 , ) 

xPLMb(UWN (IC) »vwN (IC) ♦ANA2»8ETTM) /J UNA 2- A N A ? ) 

GO TO 3 

1493 WRITE |6f 1 393 > 

1393 FORMAT (* AVERAGING PROCESS DOES NOT CONVERGE IN CORNER*) 

STOP " ' ‘ 

2648 CONTimUE 

return 

FND 


I 



\/W ( I) aUl#SSI + V!#rsi 
WWriTaWl 
GO To 1 
88 IJW ( I ) sU 1 
VWfTlaVl 
WW ( I ) sWl 

1 COWTImUE 
RETURn 
FN0 



1 

i 


SUBROUTINE UNOwAT (C l *C2) 

COMMON/M/ IS (771 0) 

COMMON /D/ UW (4o)*VW (4Q)*WW (40)»XW (40)*VW (40)*THw (40) 
COMMON /V/ XJ1 

COMMON /%/ RI»KOUNT*KOUN)TS« ICOwLT 

COMMON /A/ XI * THM A X * TH ( 1 0 ) * R * Z <40 • 1 0 ) * P (40 * 1 0 ) * PHg (40 • 1 0 > * 

1 0(40,10) *SI (40*10) *H( 40, 10) *Pul (40* 10) »RHO(40*l0 ) »GAm (40*10) 

common /c/ ima; no »jmax,i start, kount>*kountp 

COMMON /R/ JQ*XCN*XC*XXI, JW,INf»lCOWL,PCOWL 

COMMQM /TEM/ T ( 4 0 , 1 0 ) 

00 1 J=1,JW 
IMA X 5 -IMA X ( J ) 

TF(Ico w LT.E 0.1) IMAXlclS (3* J) 

00 1 JslTTHAxl ~ ““ ' 

KlT«i 

W IsM ( i * J) _ 

C*«C2#<H(I* J) ♦ (0(1* J) /COS (SI (I, J) ) 

C3bC1*RH0(I. J)*Q(I*J)/COS(SI (I, J) ) 

CBeP ( T * J) /RHO (j * J) /T ( I » J) 

C6'*pTtTjT7"RhO ( I * J) **SAM ( I * J) 

2 Vl bSopT (2,* (C4.H1 ) ) 

P Hi«CB^Vl 

P l *C 4*R"H 1 AM ( I • J ) 

TlaPl/PHl/C5 

HP«FH(Pl*PHI ( I * J) *T 1 ) 

pRR*(H 2 -Hl)/H(rTjj 

IF (APS (ERR) .LT.l.E-05) GO TO 4 

KIT«KlT4i 

IF (KIT. GT. 5) GO TO 4 
IF(KIt«GT.2> GO TO 6 
FRR1bF r R 


>(ll*Hl 
Ml«l ,0l4Hl 

GO TO 2 


10 WRITE (6*1 1 ) 

11 FORMAT <4 error IN enthalpy ITERATION IN SUBROUTINE UNqWAT*) 

STnP 

- 6 nUM«H f 1 -FRR 1 * (H 1 -H ITT7T E RR-ERRT) 

FRRIbFRR 

HlUHl 


H1«0Um 

00 To 2 

CONTtmUf 


P(I»J) e Pl 
w(I* J)«H1 
T ( I * J ) * T 1 


RHO ( T , J) bRHI 

0(1* J) *V1*C0S(SI (I* J) ) 
IF ( J ,mE , jMAXt 1 ) GO TO 1 


U1bO(I*J)«COS(RHF (I»J) ) 

V 1 bQ ( f » J) 4TAN ( S I (I* J) ) 

wlsQfi* J)*SIN(PHE(I* J) ) 


T F ( X J i .GT.O. ) GO TO 88 
CSI»C0S(THW(I) ) 
SSlBSfN(THWd) ) 


TTWTTT bU1#C51-vT* SSI 


I 



